5 lines
101 B
ObjectPascal
5 lines
101 B
ObjectPascal
begin
|
|
var p: procedure(x: integer);
|
|
p := procedure(x) -> if True then Print(x);
|
|
p(666);
|
|
end. |