outside.adb

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

with Text_IO; use Text_IO;

procedure outside is

   procedure inside is

   begin

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

   end inside;

begin

   Put_Line ("Today is 4th of july");

   inside;

end outside;