program faktor;
function faktorialis(n:integer):integer; {rekuzívan}
var fakt:integer;
begin
  if n > 1 then fakt:=n*faktorialis(n-1)
           else fakt:=1;
  faktorialis:=fakt;
end;
function fakt(n:integer):integer; {ciklussal}
var f,i:integer;
begin
  f:=1;
  for i:=1 to n do
    f:=i*f;
  fakt:=f;
end;
begin
  writeln('4! = ',faktorialis(4));
  writeln('4! = ',fakt(4));
  readln;
end.