составьте программу которая...

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

 

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