https://pastein.ru/t/OE
скопируйте уникальную ссылку для отправки
program skazka;
var a: real;
begin
write('куда идёшь, герой? -1 налево 0 прямо 1 направо');
readln(a);
if a=0 then
writeln('прямо пойдёшь, смерть свою найдёшь')
else
if
a=-1
then
writeln('русские налево не ходят')
else
writeln('направо пойдёшь, жену себе найдёшь');
end.