Найти произведение от 1до n( p=1*2**n) на языке паскаль

Var     factorial: longint;     n, i: byte;   begin write('n = '); readln(n);       factorial : = 1;   for i: =2 to n do factorial : = factorial * i;   writeln('n! = ', factorial);   readln; end.

375 киболайт = 375 * 1024 * 8 = 3072000 бит

3072000 : 128000 = 24 с

ответ. понадобится 24 с.

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.