informatyki i systemów mikroprocesorowych

Program Silnia_rekurencyjnie;
 uses crt;
 var
   n  : integer;
   rezultat : longint;
 function silnia(n : integer) : longint;
 begin
   if n = 0 then silnia:= 1
     else silnia:= n*silnia(n-1);
 end;
 begin      
   clrscr;
   write('Podaj liczbe n = ');
  readln(n);
   rezultat:= silnia(n);
   writeln('silnia liczby', n, ' wynosi ',rezultat);
   repeat until keypressed;
 end.

function silnia(n : integer) : longint ;
var
  i : integer ;
begin
   if n = 0 then silnia := 1 
  else  for i:= 1 to n do silnia:= silnia*i;
end;