Дана вещественная матрица размера m*n. Сформировать одномерный массив, элементами которого являются произведения целых элементов в четных строках матрицы. Паскаль

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.