subprocedure.adb

来自「This contains the following topics and m」· ADB 代码 · 共 21 行

with Text_IO; use Text_IO;

procedure outside is

   procedure inside is

   begin

      Text_IO.Put_Line ("Inside the procedure ");
      New_Line;

   end inside;

begin

   Put_Line ("this is the yyuylylactual procedure");
   New_Line (4);

   inside;
end outside;