8 lines
104 B
ObjectPascal
8 lines
104 B
ObjectPascal
|
begin
|
|||
|
|
var p: ()->boolean := ()->
|
|||
|
|
begin
|
|||
|
|
case 0 of
|
|||
|
|
0: Result := true;
|
|||
|
|
end
|
|||
|
|
end;
|
|||
|
|
end.
|