составьте программу которая запрашивает значения элементов одномерного числового массива а, стоящего из 10 элементов,формирует и выводит на экран в строку данный массив. Найти сумму неположительных элементов массива,количество элементов кратных 3, произведение элементов,стоящих на четных местах

program z1;uses crt;var m: array[1..10] of integer;i,a,b,c:integer;beginfor i:=1 to 10 doreadln(m[i]);writeln;a:=0;b:=0;c:=1;for i:=1 to 10 do begin if m[i]<=0 then a:=a+m[i]; if m[i] mod 3 = 0 then b:=b+1; if i mod 2 = 0 then c:=c*m[i]; end;writeln(Сумма отриц'',a);writeln(кратные 3'',b);writeln(произв'',c)end.