Написать программу для вычисления суммы пяти положительны чисел введённых с клавиатуры используя процедуры которая предупреждает если введённое число отрицательное. Паскаль

// pascalabc.net 3.3, сборка 1579 от 18.11.2017 // внимание! если программа не работает, обновите версию! 1) begin   var (n,m): =readinteger2('количество строк и столбцов в массиве: ');   writeln('*** исходный массив [',n,',',m,'] ***');   var a: =matrrandom(n,m,-99,99);   a.println(4); writeln(4*a.colcount*'-');   var b: =a.rows.select(r-> r.where(t-> t.isodd).lastordefault); b.println; end. пример количество строк и столбцов в массиве: 8 5 *** исходный массив [8,5] ***   -41  36 -99  14  17   -22  12  71 -94 -42   -35 -40  26    2  24   39  17  20  11  84   -53 -18  97  -6    5     2  67 -54  -6  -3   95 -87  90 -13 -37   -81 -21  61 -90 -60 17 71 -35 11 5 -3 -37 61 2) begin   writeln('*** исходный массив ***');   var a: =matrrandom(20,10,2,5);   a.println(2); writeln(2*a.colcount*'-');   writeln('ср. 5-го ученика: ',a.row(4).average) end. пример *** исходный массив ***   2 2 3 3 4 3 4 2 3 2   4 3 2 3 2 4 3 2 5 3   4 2 3 3 4 5 5 2 2 4   5 2 4 2 4 5 4 2 3 3   5 3 3 2 3 4 5 4 4 4   3 2 3 2 3 2 5 2 4 4   4 4 5 5 2 4 5 5 4 2   2 2 5 4 4 2 4 3 2 2   2 2 4 4 2 4 4 4 5 4   2 3 4 4 5 3 3 4 5 4   5 2 5 3 3 2 3 5 3 2   3 4 2 3 4 3 2 3 4 3   2 2 2 2 2 4 4 2 4 2   5 2 3 3 3 5 3 2 2 5   2 4 2 4 3 3 3 2 5 4   3 2 5 4 4 4 5 5 3 5   4 3 2 3 3 2 2 4 2 4   2 5 2 5 2 3 2 4 5 4   3 3 2 2 5 4 3 5 4 4   2 3 5 3 3 5 4 5 2 2 ср. 5-го ученика: 3.7