Raga sto facendo un programma per visualizzare i primi 100 numeri perfetti.
Per numero perfetto intendo un numero che è dato anche dalla somma dei suoi divisori tranne se stesso.
Per esempio
6 ha come divisori 1,2,3 che sommati danno 6
28 ha come divisori 1,2,4,7,14 che sommati danno 28 ma non mi funziona lo potreste fare voi
Ecco il mio (la scrittura fa schifo)

program perfetti;

uses crt;

var a,b,c:integer;

begin

clrscr;

for a:=2 to 20 do

begin

for b:=1 to a do

begin

if (a mod b)=0 then

begin

c:=c+b;

end;

end;

if (c=a) then

begin

writeln('Il numero perfetto Š ',a);

end;

end;
readln;

end.

Grazie
Ciao