[TURBO PASCAL] Дано трехзначное число. Напишите программу поиска всех трехзначных чисел, удовлетворяюих условиям

Напишите программу поиска всех трехзначных чисел, удовлетворяюих условиям:
Искомые числа состоят из тех же цифр, что и исходное и число
Искомые числа равны среднему арифметическому всех трехзначных чисел (включая данное) , состоящих из тех же цифр
Заранее благодарю - за фрагмент кода поставлю Лучший ответ)