18 lines
184 B
ObjectPascal
18 lines
184 B
ObjectPascal
|
procedure p1(p: ()->());
|
|||
|
|
begin
|
|||
|
|
Assert(1=2);
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure p1<T>(f: ()->T);
|
|||
|
|
begin
|
|||
|
|
Assert(1=1);
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
p1(
|
|||
|
|
function->
|
|||
|
|
begin
|
|||
|
|
Result := 1;
|
|||
|
|
end
|
|||
|
|
)
|
|||
|
|
end.
|