Нужно в программе паскаль написать программу,которая при вводе натурального числа дает среднее арифметическое значение четных цифр числа(с использованием while ) заранее ! )

Тогда пишу для массива, заполненного случайными числами от 100 до 100. И ищу среднее арифметическое для двузначных четных