Какую задачу позволяет решить приведённая ниже программа?

var a: array[1..100] of real; i, n: integer; s, sred: real;
begin
write (‘n=’);
readln (n);
s:=0;
for i:=1 to n do
begin
write (‘введите число’);
readln (a[i]);
if i mod 2 = 0 then s:=s+a[i]
end;
writeln(s)
end.