program talk;

var
  name: string;
  say: string;
begin
  Writeln('Hello!');
  Readln(say);

  Writeln('What is your name?');
  Readln(name);

  Writeln('Nice to meet you ', name);
  Writeln('How are you?');
  Readln(say);

  Writeln('Oh.. program ends');
  Writeln('Good bye ', name);
  Readln(say);
end.