Дан массив В(4.2) найти среднее арифметическое элементов 2-ой строки и произведения 1-ого столбца и вывести массив в котором 2-ая строка заменена произведением — QBasic(Бейсик)

SA=B(4,1)+B(4,2)/2
FOR I=1 TO 4
FOR J=1 TO 2
IF J=1 THEN PR=PR*B(I,J)
NEXT J
NEXT I
B(4,1)=PR
B(4,2)=PR