Найти среднее арифметическое всех, идущих подряд в начале последовательности четных чисел - Pascal

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

Дана последовательность из n вещественных чисел. первое число в последовательности четное. Найти среднее арифметическое всех, идущих подряд в начале последовательности четных чисел. Условный оператор не использовать.

Решение задачи: «Найти среднее арифметическое всех, идущих подряд в начале последовательности четных чисел»

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

if frac(a)=0 then
if odd(trunc(a)) then write('нечетное')
else write('четное')

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

Проверка условия: frac(a)=0 - это проверка, является ли дробная часть числа a равной нулю. Если это так, то мы переходим к следующему условию.
Проверка условия: odd(trunc(a)) - это проверка, является ли целая часть числа a нечетной. Если это так, то мы выводим сообщение нечетное.
Если оба условия не выполняются, то мы выводим сообщение четное.