13 lines
134 B
ObjectPascal
13 lines
134 B
ObjectPascal
procedure p(o: integer);
|
|
begin
|
|
Assert(1=666)
|
|
end;
|
|
|
|
procedure p(f: ()->integer);
|
|
begin
|
|
Assert(1=1)
|
|
end;
|
|
|
|
begin
|
|
p(()->5);
|
|
end. |