Function factorial(n:integer): Longint; Begin If n=0 then factorial:=1 else factorial:=factorial(n-1)*n; End;
Яндекс