program SNTrutgon;

uses crt;

var a,b,d,m,n:longint;

    c:array[1..10000]of longint;

function ktnt(x:longint):boolean;

var i,j:longint;

begin

     ktnt:=false;

     j:=0;

     for i:=2 to x div 2 do

       if (x mod i=0) then j:=j+1;

     if (j=0) then ktnt:=true;

end;

function sntrg(y:longint):longint;

var z:longint;

begin

     sntrg:=0;

     if (ktnt(y)) then sntrg:=y

     else

       for z:=2 to y div 2 do

         if ((y mod z=0)and(ktnt(z))) then sntrg:=sntrg+z;

end;

begin

     clrscr;

     writeln('a)');

     write('   Nhap n= ');

     readln(n);

     writeln('   So nguyen to rut gon cua ',n,' la ',sntrg(n));

     writeln('b)');

     write('   Nhap a= ');

     readln(a);

     write('   Nhap b (b>a): ');

     readln(b);

     d:=0;

     for m:=a to b do

       if ((m<>n)or(m=n)) then

         if (sntrg(m)=sntrg(n)) then

           begin

             d:=d+1;

             c[d]:=m;

           end;

     if (d=0) then write('   Trong doan tu ',a,' den ',b,' khong co so nguyen nao co cung so nguyen to rut gon voi ',n)

     else

       begin

         writeln('   Co tat ca ',d,' so co cung so nguyen to rut gon voi ',n,' la');

         write('     ');

         for m:=1 to d do write(c[m],'   ');

       end;

     readln;

end.