9 lines
119 B
ObjectPascal
9 lines
119 B
ObjectPascal
begin
|
|
var n := 10;
|
|
loop n do
|
|
Assert(n=n);
|
|
var p: procedure;
|
|
p := ()->begin
|
|
Assert(n=n);
|
|
end;
|
|
end. |