program tokeletes_szam_kereses;
uses Crt, Rutin;
var
  a,b,s,i,j : longint;
begin
  ClrScr;
  WriteXY(10,1,'T ™ K  L E T E S   S Z  M O K    K E R E S  S E');
  { beolvas s }
  repeat
    WriteXY(3,3,'Mett“l keressem : '); LongRead(a);
  until (a>0);
  if a=1 then Inc(a);
  repeat
    WriteXY(3,5,'Meddig keressem : '); LongRead(b);
  until (a<b);  WriteLn;
  for i:=a to b do
    begin
      { kezd“ ‚rt‚kek be llĄt sa }
      s:=1; j:=2;
      { ciklus mĄg i gy”k‚t el nem ‚rjk }
      while j*j<i do
       begin
         { ha j oszt˘ja i-nek, akkor s n”vel‚se az oszt˘val ‚s p rj val }
         if i mod j =0 then s:=s+j+i div j;
         Inc(j);
       end;
      { ha i n‚gyzetsz m }
      if j*j=i then s:=s+j;
      { ha a sz m t”k‚letes kiĄrjuk felbont s val egytt }
      if s=i then
        begin
          Write(i:8,' = 1'); j:=2;
          for j:=2 to (i+1) div 2 do if i mod j=0 then Write('+',j);
          WriteLn;
        end;
    end;
  WriteXY(50,25,'K‚sz, b rmi kil‚p');
  repeat until KeyPressed;
end.