используя цикл с параметром вычислить n!

Program Problem1; { Вычисление факториала числа n! }

uses WinCrt;

var

n, f, i : longint;

begin

write ("Введите натуральное число ") ; readln (n) ;

f : = 1;

if n 0 then for i : = 1 to n do f : = f*i;

writeln ("Факториал числа ", n, " равен ", f)

end.

также можно сделать так:

Program Problem1a;

uses WinCrt;

var

n, i, f : longint;

begin

write ("Введите натуральное число ") ; readln (n) ;

f : = 1;

if n 0 then for i : = n downto 1 do f : = f*i;

writeln ("Факториал числа ", n, " равен ", f)

end.