savrseni

 program savrseni;
//stampanje savrsenih brojeva iz datog intervala
var m,n,i, zd,d: integer;
begin
write ('Granice intervala: ');
readln(m,n);
for i:=m to n do
    begin
        zd:=1;
        d:=2;
        while (d*d<i) do
            begin
            if(i mod d=0) then zd:=zd+d+(i div d);
            d:=d+1;
            end;
        if (d+d=i) then zd:=zd+d;
        if (i=zd) then writeln(i)
    end;
writeln('kraj');
readln;
end.