Pascal :

var s,p:string;a:integer;
begin
  readln(s);
  readln(a);
  str(a,p);
  s:=p+' hao shi '+s+'.';
  writeln(s);
end.