Program Numero_inteiro ;

var
num: integer;
i: integer;
x: integer;
j: integer;



 Begin
x := 1;
i := 0;
 writeln('Escolha 10 números inteiros e descubra se são perfeitos.');
 writeln;
 writeln('Tecle enter para continuar');
 readln;
 clrscr;


Repeat
j:= j +1;
writeln(j,'- Digite um número inteiro:');
read(num);
If ((num mod x)=0) then
begin
i := i + x;
x := x + 1;
end;
if (num = i) then
writeln (num, ' é um número perfeito.')
else
writeln (num, ' não é um número perfeito.');
writeln;
until (x = num);

end.