Задача на повторение цикла While

Найти и вывести все четырехзначные числа у которых произведение первых двух цифр равно сумме двух последних.

Например: 3699 (3*6=9+9), 6399(6*3=9+9)

В программу ничего не вводится.

Вывод, все числа соответствующие условию в порядке возрастания. (Pascal abc.net)