program hello;

procedure SayHello(name	: String);
begin
   Writeln('Hello, ', name);
end;

var
   name	:  String[16];
begin
   Write('What is your name? ');
   Readln(name);
   SayHello(name);
end.