Verified answer

var s,t: string;

begin

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

readln(s);

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

readln(t);

case t of

'д': write('Хорошо! Книга - источник знаний.');

'н': write('Плохо, из книг можно узнать много интересного.');

else write(s,', ты ответил на вопрос некорректно.');

end;

end.