Заполните одномерный массив произвольными числами от 0 до 10.

размерностью 10. вычислите сумму элементов имеющих чётный номер.
нужна программа на паскаль

var a:array [1..10] of Integer;

i,s:Integer;

begin

Write('Массив ');

for i:=1 to 10 do

begin

a[i]:=random(11);

write (a[i], ' ');

if i mod 2 = 0 then s:=s+a[i]

end;

WriteLn;

Write('Сумма элементов имеющих чётный номер равна ', s)

end.