Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

Пожалуйста исправите ошибку в программе
program zagadki2;
var a, b, c, d:string;
begin
CLS;
writeln(Привет, я программа, загаывающая загадки);
writeln(Будешь отгадывать ?);
readln(a);
if a: = (да) then writeln(Зимой и летом одним цветом.)
else
begin
writeln(пока);
Readln(a);
end;
if b: = (ёлка) then writeln(правильно!)
else
begin
writeln(нет,попробуй ещё раз);
Readln(b);
if b: = (ёлка) then writeln(правильно!!!)
end;
writeln(Сидит красавица в темнице, а коса на улице.);
Readln(c);
if c: = (морковь) then writeln(правильно!)
else
begin
writeln(попробуй ещё раз);
Readln(c);
if c: = (морковь) then writeln(правильно)
end;
writeln(Не лает, не кусает, да в дом не пускает.);
Readln(d);
if c = (замок) then writeln(правильно)
else
begin
writeln(попробуй ещё раз);
Readln(d);
if c: = (замок) then writeln(правильно);
end;
end.

Ответ оставил Гость

program zagadki2;

var a, b, c, d:string;
label r;
begin

writeln(Привет, я программа, загаывающая загадки);
writeln(Будешь отгадывать ?);
readln(a);
if a = да then writeln(Зимой и летом одним цветом.)
else
begin
writeln(пока);
goto r;
end;
Readln(b);
if b = ёлка then writeln(правильно!)
else
begin
writeln(нет,попробуй ещё раз);
Readln(b);
if b = ёлка then writeln(правильно!!!)
end;
writeln(Сидит красавица в темнице, а коса на улице.);
Readln(c);
if c = морковь then writeln(правильно!)
else
begin
writeln(попробуй ещё раз);
Readln(c);
if c = морковь then writeln(правильно)
end;
writeln(Не лает, не кусает, да в дом не пускает.);
Readln(d);
if d = замок then writeln(правильно)
else
begin
writeln(попробуй ещё раз);
Readln(d);
if d = замок then writeln(правильно);
end;
r:
end.