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