Паскаль найдите произведение первых 10 натуральных чисел при оператора while

2^i = 64

i = 6 бит потребуется на 1 символ

256 * 128 * 6 = 196608 бит памяти потребуется чтобы сохранить текст

196608 бит: 8 = 24576 байт : 1024 = 24 килобайт

ответ. 24 килобайт

var s,p: real;

i: integer;

begin

  p: =1;

  for i : = 1 to 14 do

      if i mod 2 = 0 then p: =p*i

      else s: =s+i;

  writeln(p,s);

end.