11 lines
133 B
ObjectPascal
11 lines
133 B
ObjectPascal
|
begin
|
|||
|
|
var i := 0;
|
|||
|
|
var p: procedure := procedure ->
|
|||
|
|
begin
|
|||
|
|
i := 1;
|
|||
|
|
exit;
|
|||
|
|
i := 2;
|
|||
|
|
end;
|
|||
|
|
p;
|
|||
|
|
assert(i = 1);
|
|||
|
|
end.
|