)) для заданного натурального числа 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.

program xxx;

    var z,d,k : integer;

begin

  z: =2; d: =7; k: =0;

  while (d> =z) do

    begin

      d: =d-z;

        k: =k+1

      end;

  writeln(d,'    ',k);

  readln

end.

var

  i,n,a: integer;

begin

  readln(n);

for i: =1 to n do

begin

  read(a);

if (a mod 3=0)and(a mod 5> 0) then write(a,' ');

end;

writeln;

end.