Какова длина машинной команды (в битах), если длина поля кода операций 4 бита и размер адресуемой памяти 16 ячеек, процессор — трехадресный

Var i: byte; sum: real;
begin
  for i := 1 to 37 do
    sum := sum + 1/i;
  writeln(sum);  
end. 

Program z1;
var a:array[1..12] of integer;
i:integer;
begin
for i:=1 to 12 do a[i]:=random(18)-6;    тут присваивается каждому аргументу значение от 1 до 18 - 6  т.е от -5 до 12 
for i:=1 to 12 do writeln(a[i]*a[12]);    тут выводим умножив на последний аргумент
end.

64 - это два в шестой степени, значит символ занимает 6 бит. Если на странице P символов, то 20 страниц - 20хР бит.
Переводим в килобайты: 1Кбайт = 1024 байта, 1 байт = 8 бит.
Получаем ответ: (20хР)/(8х1024) = 5хР/2048 (Кбайт)