Паскаль, составьте программу для двумерного массива: найти произведение отрицательных элементов указанной строки двумерного массива размером 4*5 целых чисел.

For i := 1 to 4 do for j := 1 to 5 do if (a[ i, j ] < 0) then  m := m * a[ i,j ];