program EvenNumbersCounter;
var
N, num, evenCount, i: integer;
begin
write('Enter the number of elements in the sequence: ');
readln(N);
evenCount := 0;
for i := 1 to N do
begin
write('Enter number ', i, ': ');
readln(num);
if num mod 2 = 0 then
evenCount := evenCount + 1;
end;
writeln('The number of even numbers in the sequence is: ', evenCount);
end.

Программа запрашивает у пользователя количество элементов в последовательности, затем последовательно запрашивает числа и проверяет их на четность. Если число четное, увеличивает счетчик четных чисел. По завершении ввода выводит количество четных чисел в последовательности.