Pascal
var x, S, d:integer;
begin
write('x='); readln(x);
s:=0;
for d= 1 to x do
begin
ifx mod d=0 then
s:=s+d;
end;
if x=S then
write('x este numar perfect')
else
write('x nu este numar perfect);
readln;
end.
-readln este ca sa citeasca singur si sa nu mai dai din nou dupa ce dai solutii pentru datele de intrare.