Паскаль, вложенные циклы хотя бы одно из 4 варианта

Есть формула объёма видеопамяти она равна

V=M×N×a

a - это глубина цвета, она равна K= 2^{a}

K - это отображаемые цвета

M - это кол-во горизонтальных точек

N - это кол-во вертикальных точек

И так, найдём K, подставив цифры

K=16 777 216 = 2^{24}

Значит a=24

Теперь всё подставим в формулу.

V=1024×768×24 это мы получим кол-во бит

Но лучше сразу перевести в Мб, переведя биты в байты (поделив на 8, байты в КилоБайты делив на 1024 и Кб в Мб делив еще на 1024)

V= \frac{1024*768*24}{8*1024*1024}

1024 сокращается получаем

V= \frac{768*24}{8*1024}

8 и 768 сокращаются

V= \frac{96*24}{1024}

24 и 1024 можно сократить на 4

V= \frac{96*6}{256}

6 и 256 еще сократить можно на 2

V= \frac{96*3}{128}

Думаю хватит сокращений, теперь просто посчитаем

V= \frac{288}{128} = 2,25 Мб

//Программа и скриншот ее работы в приложениях.
//В условии неясность

const
    rows=7;
    cols=7;
var  
    i,j,s:byte;
    max,elm:shortint;
    prod:integer;
    T:array[1..rows, 1..cols] of shortint;
   
begin
  writeln('Заполнение массива случайными данными');
 
  for i:=1 to rows do begin
    for j:=1 to cols do begin
      T[i,j]:=random(-15,15);// диапазон случайных чисел
      write(T[i,j]:6);
    end;
    writeln();
  end;

  prod:=1;
  for j:=1 to cols do
    //произведение эл-ов 3 строки
    prod:=prod*T[3,j];     
  writeln('Произведение элементов 3-ей строки: ', prod);

  elm:=0;
  for j:=1 to cols do
    //если элемент 3 строки больше произведения эл-ов 3-ей строки
    if (T[3,j]>prod) then
      elm:=elm+1;
  writeln('Количество элементов 3-ей строки больших этого произведения: ', elm); 

  max:=0;
  for i:=1 to rows do
    if (max<T[i,3]) then
      max:=T[i,3];
  writeln('Максимум в 3 столбце массива: ', max);
end.