Факториала

program Project457;
 
uses crt;
var o,n:integer;
 
function fact(n:integer):longint;
begin
if n=1 then fact:=1
         else fact:=fact(n-1)*n;
end;
 
begin
write('vvedi chislo: ');
readln(n);
o:=fact(n);
writeln('otvet:', o);
readln;
end.

program Project457;
 
uses crt;
var o,n:integer;
 
function fact(n:integer):longint;
begin
if (n=1) or (n=0) then fact:=1 //0!=1; 1!=1
         else fact:=fact(n-1)*n;
end;
 
begin
write('vvedi chislo: ');
readln(n);
o:=fact(n);
writeln('otvet:', o);
readln;
end.

if n=0 then fact:=1

uses crt;
var n:integer;
function fact(n:integer):longint;
begin
if n<2 then fact:=1
         else fact:=fact(n-1)*n;
end;
begin
write('vvedi chislo: ');
readln(n);
writeln('otvet: ', fact(n));
readln;
end.

program Project457;
 
uses crt;
var o,n:integer;
 
function fact(n:integer):longint;
begin
if n=0 then fact:=1 //учитываем 0!=1
 else if n < 0 then fact:=-1 //если n отрицательное - возвращаем код ошибки (-1)
         else fact:=fact(n-1)*n;
end;
 
begin
write('vvedi chislo: ');
readln(n);
o:=fact(n);
if o=-1 then writeln('oshibka!') else
 writeln('otvet:', o);
readln;
end.

 program Project457;
 
uses crt;
var o,n:integer;
 
function FAKA(n:integer):longint;
 var i:integer;
begin
 FAKA:=0;
 for i:=1 to n do FAKA:=FAKA*i;
end;
 
begin
write('vvedi chislo: ');
readln(n);
('Otvet' ,FAKA(n));
readln;
end.