Напишите программу, которая ввод данных в одномерный целочисленный массив осуществляет посредством цикла WHILE...DO, а вывод – REPEAT...UNTIL (в скобках указана размерность массива)
1. подсчитать произведение неотрицательных элементов в двухмерном массиве 6 × 3;

program z1;vari, j, p: integer;a: array[1..6, 1..3] of integer;beginp := 1;i := 1;j := 1;while i <= 6 dobegin    while j <= 3 do    begin        write('a[',i,'][',j,']=');        readln(a[i,j]);        j := j + 1;    end;    i := i + 1;end;i := 1;j := 1;repeat    repeat        if a[i,j] >= 0 then           p := p * a[i,j];        j := j + 1;    until j > 3;    i := i + 1;until i > 6;writeln('произведение неотрицательных элементов: ',p);end.