Число називаться "досконалим",якщо воно дорвню сум всх додатних дльникв,окрм самого

абсолютные числа
function sovr(var n: integer): boolean;
var i,s: integer;
begin
  s:=1;
  for i:=2 to (n div 2) do
  if (n mod i)=0 then s:=s+i;
  if (sgt;1) and (s=n) then Result:=true
  else Result:=false;
end;
основная программка
var i: integer;
begin
  for i:=1 to 1000 do
  if sovr(i) then   writeln('абсолютное число: ',i);
end.