program NumPerfeito;
uses crt;

var cont, x, soma, i: integer;

begin
clrscr;
cont:=0;
x:=0;
   writeln('Os numeros perfeitos sao: ');
  
     repeat
      x:=x+1;
      soma:=0;
        for i:= 1 to x-1 do
          begin
          if x mod i = 0 then soma:=soma + i;
          end;
          if soma = x then
            begin
            writeln(x);
            cont:=cont+1;
            end
  until cont=4;
     writeln('Pressione qualquer tecla para finalizar...');
readkey;
end.