Пожалуйста исправите ошибку в программе 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.