mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-17 07:39:27 +02:00
19 lines
195 B
ObjectPascal
19 lines
195 B
ObjectPascal
procedure test(w : word);forward;
|
|
|
|
procedure test(a : string);
|
|
begin
|
|
Writeln(a);
|
|
test(20);
|
|
end;
|
|
|
|
procedure test(w :word);
|
|
begin
|
|
writeln(w);
|
|
end;
|
|
|
|
begin
|
|
test('test');
|
|
test(32);
|
|
end.
|
|
|