Pascal :

var
a:string;
begin
read(a);
write('Hello ',a,'!');
end.