uses System;

procedure Test;
[Obsolete]
procedure Nested;
begin
  
end;
begin
  
end;

begin
  
end.