var a[1..10] of integer;
c, i:integer;
begin
c:=0;
for i:=1 to 10 do a[i]:= random(10);
for i:=1 to 10 do
if (i mod 2 = 0) then c:= c + a[i];
write(c);
end.
