Дан массив целых чисел, состоящий из 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.