Напишите функцию friend вида function friend (a, b: integer): boolean; Функция должна определять, являются ли данные числа дружественными (Подсказка: Два натуральных числа называются дружественными, если каждое из них равно сум...

Напишите функцию friend вида function friend (a, b: integer): boolean; Функция должна определять, являются ли данные числа дружественными (Подсказка: Два натуральных числа называются дружественными, если каждое из них равно сумме всех натуральных делителей другого. При этом само число в качестве делителя не рассматривается.