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