Найти произведение чётных чисел - Pascal

Формулировка задачи:

Вводится последовательности из 15 целых чисел. Найти произведение четных чисел. Желательно через while. СРОЧНО

Решение задачи: «Найти произведение чётных чисел»

Листинг программы

var p, x, n: integer;
begin
  n := 1;
  p := 1;
  while n <= 15 do
    begin
      write('x', n, ' = ');
      readln(x);
      if not odd(x) then p := p * x;
      inc(n)
    end;
  if p = 1
    then write('Последовательность не содержит чётных чисел.')
    else write('Произведение чётных чисел = ', p);
  readln
end.

Объяснение кода листинга программы

Создаются переменные:
- p (произведение чётных чисел, инициализированное значением 1),
- x (значение числа, вводимое пользователем),
- n (счётчик элементов последовательности, инициализированное значением 1).
Устанавливается значение n равным 1.
Устанавливается значение p равным 1.
Запускается цикл, который выполняется пока n не станет больше 15.
Пользователю предлагается ввести значение для x.
Если введенное значение x является чётным (для проверки используется функция odd), то значение p умножается на x.
Увеличиваем значение переменной n на 1.
После завершения цикла проверяется значение p.
Если p равно 1, выводится сообщение Последовательность не содержит чётных чисел.
Если p не равно 1, выводится сообщение Произведение чётных чисел = и значение переменной p.
Завершение программы.