faktorijel

program faktorijal;
var n,f:longint;

function fakt1(n:longint):longint;
//nerekurzivna funkcija
var rez:longint;
begin
rez:=1;
while n>1 do
    begin
    rez:=rez*n;
    n:=n-1;
    end;
fakt1:=rez;
end;

function fakt2(n:longint):longint;
//rekurzivno
begin
if(n>1) then fakt2:=n*fakt2(n-1)
    else fakt2:=1;
end;

begin
write('Broj ciji se faktorijal racuna: ');
readln(n);
writeln(n,'!= ', fakt1(n));
writeln(n,'!= ', fakt2(n));
readln;
end.