Prijateljski brojevi 24-10

 program prijatelj;
//stampanje parova prijateljskih brojeva iz datog intervala
var m,n,i, zd,j,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;
        j:=zd;
        if (j>i) and (j<=n) then
                        begin
                                zd:=1; d:=2;
                                while(d*d<j) do
                        begin
                                   if (j mod d = 0) then zd:= zd+d+j div d;
                                   d:=d+1;
                        end;
                if (d*d=j) then zd:=zd+d;
        if (i=zd)then writeln(i,' ',j)
            end;
    end;
writeln('kraj')      ;
readln;
end.