Составить программу реализующую эпизод сказки. - Pascal

Формулировка задачи:

Составить программу реализующую эпизод сказки. На экране появляется вопрос: КУДА ПРЕДПОЧИТАЕТ ПОЙТИ ГЕРОЙ? (налево, прямо, направо) и печатается ответ, что его ждет в каждом конкретном случае. ПЛИЗИКИ......очень нужно, а сама в єтом ничего не рублю)

нууууууууууу......плизики...ну оч нужно))))

Решение задачи: «Составить программу реализующую эпизод сказки.»

Листинг программы

Program skazka;
Uses crt;
Var 
 k:integer;
begin
 clrscr;
 writeln (' Kyda poidet geroi? nalevo,napravo ili vpered?');
 writeln (' 1:napravo ');
 writeln (' 2:nalevo ');
 writeln (' 3:vpered ');
 readln (k);
 case k of
 1: writeln ('Napravo poidet - cam propadet ');
 2: writeln ('Nalevo poidet - kon9 poter9et ');
 3: writeln ('Vpered poidet - nevesty naidet ')
  end;
Readln
end.

Объяснение кода листинга программы

В данном коде объявлены три переменные: k, которая является целочисленной, и две логические переменные, которые не используются в данной программе. В начале программы выводится вопрос о том, куда герой пойдет: направо, налево или вперед. Затем пользователю предлагается выбрать один из трех вариантов ответа, используя клавиши на клавиатуре. С помощью оператора case происходит проверка выбранного варианта ответа. Если пользователь выбрал направо, то выводится соответствующее сообщение. Если выбрано налево, то выводится другое сообщение. Если выбран вперед, то выводится третье сообщение. Функция readln используется для считывания введенных пользователем данных и перевода строки. В конце программы выводится сообщение Readln.