Дан массив из 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.