Задача 3 Урок 20

Задача 3 Урок 20

Дано целое положительное число N, вычислите N! (эн факториал).

program lesson20_3;
function fact(n: integer): integer;
begin
    if (n = 0) or (n = 1) then
        result := 1
    else
        result := n * fact(n - 1);
end;

var
    n: integer;
begin
    n := 5;
    write(n, '! = ', fact(n));
    readln();
end.