15 lines
101 B
ObjectPascal
15 lines
101 B
ObjectPascal
|
uses System;
|
||
|
|
|
||
|
|
procedure Test;
|
||
|
|
[Obsolete]
|
||
|
|
procedure Nested;
|
||
|
|
begin
|
||
|
|
|
||
|
|
end;
|
||
|
|
begin
|
||
|
|
|
||
|
|
end;
|
||
|
|
|
||
|
|
begin
|
||
|
|
|
||
|
|
end.
|