найти в массиве в(10) сумму элементов под четными номерами

А вот так подойдет?????uses Crt;const n=10;Type Vec=array [1..n] of integer;var B: Vec;i, Sum : integer;beginClrScr;for i:=1 to n dobegin   B[i]:=10+random(21);   if (i mod 2 =0) then Sum:=Sum+B[i];   Write(B[i]:4);end;WriteLn;WriteLn('Sum =', Sum);ReadLn;end.