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;