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.
не работает программа

Предыдущий
вопрос Следующий
вопрос

Исправленный вариант программы:

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 Zver = 'l' // Проверяем, является ли введенное зверем лиса
THEN
BEGIN
WRITELN('Kolobok poyot pesenku dva raza');
WRITELN('Proshchay, Kolobok ...');
END
ELSE
BEGIN
WRITELN('Kolobok poyot pesenku');
WRITELN('Katitsya dalshe');
END;
END.

В этом исправленном варианте программы была добавлена проверка на то, является ли введенное значение Zver равным символу 'l', что предполагает, что zver - лиса. Теперь программа должна корректно работать.