Pascal :

var a,b:string;
begin
  readln(a);
  readln(b);
  writeln('Hello!',a,'.');
  writeln('Hello!',b,'.');
end.