procedure Test is
   A, B : Integer;
begin
   declare
      C, D : Integer;
   begin
      declare
         E, F : Integer;
      begin
         B := 1;
   null;
      end;
   end;
   null;
end Test;
