Дан массив из 10 элементов. 1. Найти сумму чётных элементов 2.Найти произведения элементов,стоящмх на нечетных местах 3.Найти количество элементов больше трех

var ar:array[1..10] of integer; i,k1,k2,k3:integer; begin; randomize; k2:=1; writeln('Array:'); for i:=1 to 10 do  begin;   ar[i]:=random(10);   write(ar[i]:4);   if odd(i) then k2:=k2*ar[i] else k1:=k1+ar[i];   if ar[i]>3 then inc(k3);  end; writeln; writeln('1:',k1); writeln('2:',k2); writeln('3:',k3); end.