Напишите логическую функцию которая определяет верно ли что число N - совершенное, т.е. равно сумме своих делителей, меньших его самого

//Другой вопрос где найти такое число. //Pascal ABC.NET v3.0 сборка 1111 function Abso(n:integer):boolean;  Var   i,k:integer;  begin  k:=0;   for i:=1 to n div 2 do    if n mod i=0 then k:=k+i;  if k=n then Abso:=true else Abso:=false;  end;