Дан массив целых чисел,состоящий из 25 элементов.заполните его с клавиатуры .Найти:сумму элементов имеющих нечётные индексы;подсчитать количество элементов массива,значения которых больше заданного числа А и кратны 5

const n=25; var b:array[1..n] of integer; s,k,a,i:integer; begin writeln('vvedite massiv'); for i:=1 to n do readln(b[i]); writeln('a='); readln(a); k:=0; s:=0; for i:=1 to n do if i mod 2=1 then s:=s+b[i]; if (b[i]>a) and (b[i] mod 5=0) then inc(k); writeln ('s=',s,' k=',k); readln; end.