program raf105;
var name:string;
begin
writeln('Как тебя зовут?');
readln(name);
writeln('Привет, ',name);
writeln('Как твои дела?');
readln();
writeln('Понятно');
writeln('Мне пора уходить. Пока, ',name);
end.
