Напишите программу, которая в последовательности натуральных чисел определяет количество четных чисел. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность).

Понятия чаще всего определяются через ближайший род и видовое отличие: указывается группа родственных понятий, к которому относится определяемое понятие, и его отличие от других понятий этой группы.

Примеры:
1. Сила тока — скалярная физическая величина, равная отношению количества заряда, протекшего через поперечное сечение проводника за некоторое время, к продолжительности этого промежутка времени. (Ближайший род — скалярные физические величины, отличие — равна Δq/Δt, все остальные скалярные физические величины этому не равны).
2. Паспорт гражданина Российской Федерации — основной документ, удостоверяющий личность гражданина Российской Федерации на территории Российской Федерации. (Остальные основные документы не удостовряют)

То, что написал Alex - это не функция проверки признака делимости,
а стандартная функция остатка от деления, которая тебе не подходит.
Признак делимости на 11 такой. Нужно отдельно сложить цифры, стоящие на нечетных местах - 1, 3, 5, ..., до конца, и отдельно цифры, стоящие на четных местах - 2, 4, 6, ..., тоже до конца.
Потом вычитаешь из большего числа меньшее. Если разность = 0 или делится на 11, то и все число делится на 11.
Я паскаль плохо знаю, поэтому опишу только алгоритм.
1) Вводим начальное число N.
2) Объявляем массив M[length(N)] длиной, равной количеству цифр числа.
3) Делаем в цикле a := N mod 10; M[i] := a; N := int(N / 10); i := i+1;
Продолжаем цикл до тех пор, пока N > 0.
4) S1 := 0; Цикл от 1 до length(N) с шагом 2: S1 := S1 + A[i];
5) S2 := 0; Цикл от 2 до length(N) с шагом 2: S2 := S2 + A[i];
6) Raznost := abs(S1 - S2); 
7) Если Raznost mod 11 = 0 тогда ответ ДА, иначе ответ НЕТ.
8) Конец