15 lines
199 B
ObjectPascal
15 lines
199 B
ObjectPascal
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.
|