--Rotter Gyorgy
--rekurziv eljaras (kulon konyvtari egysegkent) szamok kiirasara...
--{hasznalja: szamol_teszt.adb}


with Ada.Text_IO;


function szamol(honnan:integer) return integer is                                  --rekurziv (onmagat hivo) fv.  kiirja a parameterekent kapott szamot
begin
   if honnan>0 then Ada.Text_IO.Put_Line(integer'image(szamol(honnan-1)));         --|minden rekurziv fv.-nek tartalmaznia kell!!! egy elagazast...       
               else null;                                                          --| ...melynek csak az egyik agaban hivja meg onmagat   
   end if;                                                                         --| es minden egyes lepesben (hivaskor) kozelednie kell a leallashoz
  
   return honnan;                                                                  --minden fv.-nek vissza kell adnia erteket!
end szamol;