ой да, что может быть проще!)))
напишу сам цикл и условие. кстати допиши, как задается последовательность - рандомно или с клавы, думаю последовательность лучше задать как массив. проще будет)))
ниже условие проверки кратности и четности чисел. проверь обязательно, могу ошибится))

begin
clrscr;
For i:= 1 to (кол-во чисел) do
begin
If (a mod 2 = 0) and (a mod 7 = 0) then
k:=k+1;
end;

вроде вот и все))

var
a: array[1..9999] of integer;
i,n,b: integer;
begin
write('Кол-во чисел: '); readln(n);
for i:=1 to n do
begin
write(i, ' число = ');
readln(a[i]);
if (a[i] mod 2 = 0) and (a[i] mod 5 = 0) then inc(b);
end;
writeln('Кол-во четных чисел, кратных 5: ', b);
end.