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

Program z1;
var
i, j, p: integer;
a: array[1..6, 1..3] of integer;
begin
p := 1;
i := 1;
j := 1;
while i lt;= 6 do
begin
    while j lt;= 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] gt;= 0 then
           p := p * a[i,j];
        j := j + 1;
    until j gt; 3;
    i := i + 1;
until i gt; 6;
writeln(произведение неотрицательных элементов: ,p);
end.