mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-26 12:03:45 +02:00
13 lines
131 B
ObjectPascal
13 lines
131 B
ObjectPascal
var
|
|
p : procedure(w : word);
|
|
|
|
procedure pp(w :word);
|
|
begin
|
|
Writeln(w);
|
|
end;
|
|
|
|
begin
|
|
p:=@pp;
|
|
p(1234);
|
|
end.
|