PROGRAM Kolobok; USES CRT; VAR Zver:CHAR; BEGIN WRITELN('Ispekla babka kolobka i...

Question

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

Comments

она не правильно написана, это pascal?

---

да , паскаль

---

я знаю,что не работает, поэтому и прошу помощи

---

у вас там переменная типа Char, она может хранить только один символ, char и переводится как символ с английского, поэтому нужно вместо char указать string, что значит строка. ну и в условном операторе нужно было указать границы begin и end

Answer 1

Program Kolobok;
var zver:string;
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 = 'lisa' then
        begin
            writeln('Kolobok poyot pesenku dva raza');
            writeln('Proshchay, Kolobok ...');
        end
    else
        begin
            writeln('Kolobok poyot pesenku');
            writeln('Katitsya dalshe');
        end;
end.