for i:= 1 to n do
begin
if a[i] < 23 and a[i] mod 5 = 0 then
k = k +1
end.
n - количество символов в массиве.
