Напишите функцию friend вида function friend (a, b: integer): boolean; Функция

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