Program SecondProgram;
Var a:string;
Begin
Writeln('Please enter your name :');
Readln (a);
Writeln('Hi ',a,'.');
End.