--Rotter Gyorgy
--kulon konyvtari egysegkent megirt (rekurziv fv. hasznalata) szamok kiirasara...
--{hasznalja: szamol.adb -t}

with Ada.Text_IO;

with szamol;                                                      --ezt a kulso (program-/forditasi-)egyseget hasznaljuk

procedure szamol_teszt is
 szam:integer;
begin
   Ada.Text_IO.Put_Line("Program indul");

   szam:=szamol(5);                                               --meghivjuk a "kulso" rekurziv fuggvenyt (ami tartalmaz kiiratast is...)

   Ada.Text_IO.Put_Line(integer'image(szam));                     --string-ge alakitjuk, es kiirjuk kulon sorba a szam valtozo erteket

   Ada.Text_IO.Put_Line("Program vege");
end szamol_teszt;