ПОМОГИТЕ Безотлагательно ПОЖАЛУЙСТА Компьютер обязан запросить у юзера ответ за загадку:

//Программка на языке паскаль:

program zagadka;

var s: String;

begin

writeln('Посиживает девушка в темнице, а коса на улице.');

readln(s);

while(s lt;gt; 'Морковь')

do begin

writeln('Не угадал. Пробуй еще раз');

readln(s);

end;

writeln('Правильно. Угадал!');

end.

/*

Описание:

Выводим юзеру загадку и просим его ввести ответ. Пока юзер не угадает, просим его опять и опять вводить ответ, предварительно написав, что он ошибся. Как только мы получаем правильный ответ, программа выводит объяснение юзеру, где пишет, что тот угадал. Программка заканчивает свою работу.