Нужно сделать так, что бы операция:
writeln(s, ', ответь пожалуйста Да или Нет.');
readln(s1);
Повторялась бесконечно до момента ввода слова Да или Нет.
Вот полный код:

var s, s1: string;
begin
writeln('Как тебя зовут?');
readln(s);
writeln('Привет, ', s, '. А ты любишь читать?(Да/Нет).');
readln(s1);
if s1 = 'Да' then
begin
writeln('Хорошо, книга – источник знаний.');
end
else
if s1 = 'Нет' then
begin
writeln('Плохо, нужно читать книги!');
end
else
writeln(s, ', ответь пожалуйста Да или Нет.');
readln(s1);
end.

Ответ

Автор - fedrfedr

Ответ:

var s, s1: string;

begin

writeln('Как тебя зовут?');

readln(s);

writeln('Привет, ', s, '. А ты любишь читать?(Да/Нет).');

while true do begin

readln(s1);

if s1 = 'Да' then begin

writeln('Хорошо, книга – источник знаний.');

break;

end else if s1 = 'Нет' then begin

writeln('Плохо, нужно читать книги!');

break;

end else

writeln(s, ', ответь пожалуйста Да или Нет.');

end;

end.

Объяснение:

это один из вариантов - бесконечный цикл с командами break - выхода из цикла в случае правильного ответа

Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.