Массив А[1..20] заполнен случайными числами [0;10]. Найти сумму элементов с четными номерами

program pr1;varm:array[1..100] of integer;i,sum:integer;beginrandomize;for i:=1 to 20 dom[i]:=random(10);for i:=1 to 20 dobeginwrite(m[i],' ');if i mod 2 =0 then sum:=sum+m[i];end;writeln('');writeln(sum);readln;end.