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.