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

А вот так подойдет

uses Crt;
const n=10;
Type Vec=array [1..n] of integer;
var B: Vec;
i, Sum : integer;
begin
ClrScr;
for i:=1 to n do
begin
   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.