Gloria EdwardsProgram zagadka;
var stroka: string;
begin
Writeln ('Отгадайте загадку:');
Writeln ('Висит груша, нельзя скушать');
Readln (stroka);
if stroka='лампочка' then
Writeln ('Правильно!!!')
else Writeln ('Не правильно!!!');
Readln;
end.
Albion