дан массив целых чисел. найти количество элементов массива, значения которых больше заданного числа A и кратных 5

var b:array [1..100000] of integer;a,k,i,n:integer;begink:=0;{обнуляем счётчик}readln(n);{вводим количество элементов в массиве}readln(a);{задаём число а, с которым потом будем сравнивать}for i:=1 to n do{запускаем цикл}beginif (b[i] > a) and ((b[i] mod 5)=0) then{проверка на выполнение условий,заданных в задаче}k:=k+1;{при выполнении условия,увеличиваем счётчик на один}end;writeln(k);{выводим количество элементов, удовлетворивших условию задачи}end.

const n=10;var arr:array [1..n] of integer;a,k,i:integer;beginRandomize;writeln('Исходный массив:');for i:=1 to n do begin arr[i]:=random(51); write(arr[i]:4); end;writeln;write('a = ');readln(a);k:=0;for i:=1 to n do if (arr[i] > a) and (arr[i] mod 5=0) then k:=k+1;writeln('k = ',k);end.Пример:Исходный массив:  23  25  41  15   3  48  33  24  10  35a = 12k = 3