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.

cHJvZ3JhbSBOdW1QZXJmZWl0bzsKdXNlcyBjcnQ7Cgp2YXIgY29udCwgeCwgc29tYSwgaTogaW50ZWdlcjsKCmJlZ2luCmNscnNjcjsKY29udDo9MDsKeDo9MDsKICAgd3JpdGVsbignT3MgbnVtZXJvcyBwZXJmZWl0b3Mgc2FvOiAnKTsKICAKICAgICByZXBlYXQKICAgICAgeDo9eCsxOwogICAgICBzb21hOj0wOwogICAgICAgIGZvciBpOj0gMSB0byB4LTEgZG8KICAgICAgICAgIGJlZ2luCiAgICAgICAgICBpZiB4IG1vZCBpID0gMCB0aGVuIHNvbWE6PXNvbWEgKyBpOwogICAgICAgICAgZW5kOwogICAgICAgICAgaWYgc29tYSA9IHggdGhlbgogICAgICAgICAgICBiZWdpbgogICAgICAgICAgICB3cml0ZWxuKHgpOwogICAgICAgICAgICBjb250Oj1jb250KzE7CiAgICAgICAgICAgIGVuZAogIHVudGlsIGNvbnQ9NDsKICAgICB3cml0ZWxuKCdQcmVzc2lvbmUgcXVhbHF1ZXIgdGVjbGEgcGFyYSBmaW5hbGl6YXIuLi4nKTsKcmVhZGtleTsKZW5kLg==