program baratsagos_szam_kereses;
uses Crt, Rutin;
var
  a,b,o,i : longint;

function osszeg( szam : longint):longint;
var
  s,j : longint;
begin
  s:=1; j:=2;
  while j*j<szam do
    begin
      if szam mod j=0 then s:=s+j+szam div j;
      Inc(j);
    end;
  if j*j=szam then s:=s+j;
  osszeg:=s;
end;

begin
  ClrScr;
  WriteXY(10,1,'B A R � T S � G O S   S Z � M P � R O K   K E R E S � S E');
  { beolvas s }
  repeat
    WriteXY(3,3,'Mett“l keressem “ket : '); LongRead(a);
  until a>0;
  repeat
    WriteXY(3,5,'Meddig keressem “ket : '); LongRead(b);
  until b>a;
  WriteLn;
  i:=a;
  { ciklus m¡g i el nem ‚ri a hat rt }
  while i<=b do
    begin
      { az ”sszeg elt rol sa }
      o:=osszeg(i);
      { ha az ”sszeg kisebb akkor egyenl“s‚g vizsg lat }
      if (i>o) and (i=osszeg(o))
        then WriteLn('(':20,o:8,' ; ',i:8,')');
      Inc(i);
    end;
  WriteXY(50,25,'b rmi kil‚p‚s');
  repeat until KeyPressed;
end.