Задание 197. Программа для подсчета четных чисел, кратных 3, в последовательности

Задание 197. Напишите программу, которая в последовательности целых чисел определяет количество четных чисел, кратных 3. Программа получает на вход целые числа. Количество введенных чисел неизвестно, последовательность чисел заканчивается числом 0. Количество чисел не превышает 1000. Введенные числа по модулю не превышают 30000. Программа должна вывести одно число: количество четных чисел, кратных 3.

Program Z197;
var i, k, a: integer;

BEGIN
  writeln('Введите а');  // Приглашение к вводу (можно убрать, если не нужно)
  readln(a);
  i := 0;
  k := 1;
  while (a <> 0) and (k < 1000) do
  begin
    if (a mod 2 = 0) and (a mod 3 = 0) then  // Проверка: четное И кратное 3
      i := i + 1;
    k := k + 1;
    readln(a);
  end;
  writeln(i);  // Вывод только числа, как требует задача
END.

Алгоритм работы программы:

1. Инициализировать счетчик результата = 0.
2. Читать числа в цикле, пока не введен 0 и не достигнуто 1000 чисел.
3. Для каждого числа: проверить, является ли оно четным (делится на 2) и кратным 3 (делится на 3). Если да — увеличить счетчик.
4. Вывести итоговый счетчик.

Пример: Ввод 6, 9, 12, 15, 0 → Вывод 2 (6 и 12 подходят).