begin
ans:='Нет';
REPEAT
Writeln('Оно вам Надо??');
readln(x);
if ans=x do
writeln('Еще вопросы? Нет? ну так и всё!! ')
else
writeln('А если подумать??');
until ans=x;
readln;
end.
Я в бога не верю)) и не верю во всякие регилигии. так как нет никаких фактов подтверждающих существования "бога" . Ну я священник скажет: *ля , *ука, пи****, что за ху***, я щас ****** **** *** *** ***, ну интереснее снять видео где священник материться, и вместо мата вставляют "пипки"