ДАЮ 50 баллов Pascal Дан массив целых чисел состоящий из n элементов. Найти сумму элементов имеющие нечетные индексы. Посчитать кол-во элементов массива значение которых больше заданных А и кратных 5

const N = 10;var b: array[1..N] of integer;summ, k, A: integer;beginreadln(A);summ:=0;k:=0;for i:=1 to N do beginreadln(b[i]); If (b[i] > A) and (b[i] mod 5 = 0) thenk:=k+1;If i mod 2 <> 0 thensumm:=summ+ b[i];end;writeln('Summ = ', summ);writeln(k);end.