12 lines
107 B
ObjectPascal
12 lines
107 B
ObjectPascal
|
|
function f1: byte;
|
|||
|
|
begin
|
|||
|
|
|
|||
|
|
var p: ()->() := ()->
|
|||
|
|
begin
|
|||
|
|
Result := 0;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
end.
|