Нужно по данной блок-схеме написать програму для решения в среде vba в excel

Const n=4; m=5; var a: array[1..m, 1..n] of real; b: array[1..m div 2] of real; s: real; i, j: integer; begin //считываем матрицу for i: =1 to m do   for j: =1 to n do     readln(a[i, j]); for i: =1 to m do //проверяем четность индекса строки   if i mod 2 = 0 then     begin     s : = 1;     for j: =1 to n do //проверяем элемент на отсутствие дробной части       if a[i, j] = int(a[i,j]) then         s : = s * a[i, j]; //присваиваем элементу массива b произведение     b[i div 2] : = s;     end; end.

Const n = 10; var b: array[1..n] of integer; c: array[1..n] of integer; i, a, k: integer; begin //считываем массив b for i: =1 to n do   readln(b[i]); //вводим a readln(a); k: =0; for i: =1 to n do //если элемент кратен а и по модулю больше i то   if (b[i] mod a = 0) and (abs(b[i]) > i) then   begin //увеличиваем k на 1 и присваиваем c[k] a[i]   inc(k);   c[k] : = b[i];   end; if k = 0 then   writeln('таких элементов нет') else   for i: =1 to k do     writeln(c[k]); end.