Пожалуйста посчитайте с заданием по информатике, пожалуйста, срочно

1. const n=25;

var b:array[-30..30] of integer;

s,k,a,i:integer;

beginwriteln('vvedite massiv');

for i:=-30 to 30 doreadln(b[i]);

writeln('a=');

readln(a);

k:=0;

s:=0;

for i:=1 to n doif i mod 2=1 then s:=s+b[i];

end.