Дана вещественная матрица размера 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.