begin
var S:string;
var N: char;
writeln('Как тебя зовут?');
readln(S);
writeln('Привет, ',S,'. А ты любишь читать? (д/н)');
readln(N);
case N of
'д': write ('Хорошо! Книга - источник знаний.');
'н': write ('Плохо, из книг можно узнать много интересного.');
else write (S,', ты ответил на вопрос некорректно.');
end;
end.
