Ответ:

begin

 var S:string;  

 var N: char;

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

 readln(S);

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

 readln(N);

 case N of

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

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

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

 end;

end.