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

Program skazka;
Uses crt;
const n:string= 'налево';
      a:string= 'направо';
      v:string= 'вперед';
Var p:string;
begin
clrscr;
 writeln (' Куда пойдет герой? ');
 readln (p);
 if p=n then writeln ('Налево пойдешь - коня потеряешь ');
 if p=a then writeln ('Направо пойдешь - сам пропадешь ');
 if p=v then writeln ('Вперед пойдешь - невесту найдешь ');
Readln
end.

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.

Program skazka;
Uses crt;
Var nal,nap,vper,n,a,v:string;
    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:nal:=n;
 2:nap:=a;
 3:vper:=v;
  end;
 if k=2 then writeln ('Nalevo poidet - kon9 poter9et ');
 if k=1 then writeln ('Napravo poidet - cam propadet ');
 if k=3 then writeln ('Vpered poidet - nevesty naidet ');
Readln
end.

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.