Составьте алгоритм, где вводиться десять элементов массива, и каждый увеличивается на 3

Var  mas: array [0..9] of integer; i,n: integer; begin n: =9; for i: =0 to n do  begin  mas[i]: =3*i;   write(mas[i],' ');   end; end.

Type   v = array of integer; function prodpos(a: v): longint; var   i: integer; begin   result : = 1;   foreach var p: longint in a do       if p > 0 then result : = result * p end; procedure initmas(var a: v; title: string); var   i: integer; begin   writeln(title, '(', length(a, 0), '). вводите элементы.');   for i : = 0 to length(a, 0) - 1 do       read(a[i]) end; procedure getmas(var a: v; dim: integer; title: string); begin   setlength(a, dim);   initmas(a, title); end; const   n1 = 10;   n2 = 15; var   a, b: v; begin   getmas(a, n1, 'массив а');   getmas(b, n2, 'массив b');   writeln('большее произведение положительных ', max(prodpos(a), prodpos( end. тестовый прогон: массив а(10). вводите элементы. 1 1 1 1 2 1 2 2 1 5 массив b(15). вводите элементы. 1 0 2 4 0 1 -3 -4 1 2 3 1 -3 0 2 большее произведение положительных 96