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