PROGRAM Fatorial_Recursivo;

function fat(num:longint):longint;
begin
  if num <= 1
  then fat:=1
  else fat:= fat(num-1) * num;
end;

var
  Num:Longint;
  Fatorial:Longint;
begin
  write('Entre com um n£mero: ');
  readln(Num);
  Fatorial:=fat(Num);
  writeln('Fatorial de ',Num,' ‚ igual … ',Fatorial);
  readln;
end.