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

//Другой вопрос где найти такое число.//Pascal ABC.NET v3.0 сборка 1111function 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;