Question

помогите)) Для заданного натурального числа N вычислить значение его факториала N!=1*2*3...*N

Answer 1

var a:array [1..1000] of integer;

fac,i,n: integer;

begin

readln(n);

fac:=1;

for i:=1 to n do begin

a[i]:=i;

end;

for i:=1 to n do begin

fac:=fac*a[i];

end;

writeln(fac);

end.