PROGRAM Kolobok; USES CRT; VAR Zver:CHAR; BEGIN WRITELN('Ispekla babka kolobka i postavila yego na okoshko ostuzhatsya'); WRITELN('Ubezhal kolobok ot deda i ot babki i pokatilsya po dorozhke'); WRITELN('Kolobok katitsya, a navstrechu yemu zver'); WRITELN('Vvod zverya'); READLN(Zver); IF lisa THEN WRITELN('Kolobok poyot pesenku dva raza'); WRITELN('Proshchay, Kolobok ...'); ELSE WRITELN('Kolobok poyot pesenku'); WRITELN('Katitsya dalshe'); END. не работает программа