Var   elm:string;
begin
  write('Привет! ');
  writeln('Меня зовут Аня :)');

  write('А тебя как зовут? ');
  readln(elm);
  writeln('Приятно познакомиться, ',elm,'!');
 
  write('Сколько тебе лет? ');
  readln(elm);
  writeln('О! Уже ', elm, '!');
 
  write('А где ты живёшь? ');
  readln(elm);
  writeln('Так мы соседи. Я ведь тоже живу ', elm);
 
  write('А чем ты увлекаешься? ');
  readln(elm);
  writeln('Супер! Я всегда хотела тоже заняться ', elm);
 
  write('Приятно было познакомится :) ');
  readln(elm);
  writeln(elm,'!!!');
end.