1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Program skazka;
Uses crt;
const n:string= 'nalevo';
a:string= 'napravo';
v:string= 'vpered';
Var p:string;
begin
clrscr;
writeln (' Kyda poidet geroi? nalevo,napravo ili vpered?');
readln (p);
if p=n then writeln ('Nalevo poidet - kon9 poter9et ');
if p=a then writeln ('Napravo poidet - cam propadet ');
if p=v then writeln ('Vpered poidet - nevesty naidet ');
Readln
end.