with Ada.Text_IO; procedure separate_eljarasos_program is I : Integer := 2#0000_0111#; procedure Szamot_Kiir is separate; -- figyeljuk meg, hogy nincs parametere az eljarasnak begin Ada.Text_IO.Put_Line("Program indul"); Szamot_Kiir; Ada.Text_IO.Put_Line("Program vege"); end separate_eljarasos_program;