---

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.

---

---

---