)) для заданного натурального числа n вычислить значение его факториала n! =1*2**n

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.

надо проверить 4 ключа