Разработать алгоритм, реализующий последовательность действий сказки «Колобок». Написать программу в Паскале.

мне нужна сама реализация сказки,а не только куда колобок пойдёт !

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.