var n,s:string;
i:integer;

procedure hi;
begin;
writeln('Hi!');end;

function rann(var i:integer):string;
begin;
rann:=inttostr(i);
end;

procedure how(var n,s:string;var i:integer);
begin;
writeln('How are you?');
readln(n);
if n='Nice' then writeln('I too. In my opinion, its good program') else
begin;
writeln('Enter random number');
readln(i);
s:=rann(i);
writeln('Now,',s,'is not number');
end;
end;


begin;
hi;
how(n,s,i);
end.