function Perfect(x: Integer): Integer;
var
  i, a: Integer;
begin
  i := 1;
  a := 0;

  while i <= x div 2 do
  begin
    if (x mod i = 0) then
      a := a + i;
    i := i + 1;
  end;

  if x = a then
    Result := x;
end;