15 lines
147 B
ObjectPascal
15 lines
147 B
ObjectPascal
|
procedure p1;
|
|||
|
|
const
|
|||
|
|
c1 = ' ';
|
|||
|
|
begin
|
|||
|
|
var p: procedure := ()->
|
|||
|
|
begin
|
|||
|
|
var s := c1;
|
|||
|
|
Assert(s=' ');
|
|||
|
|
end;
|
|||
|
|
p;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
p1;
|
|||
|
|
end.
|