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.