做此题，超时了六个点...

var

a,b,x,y,i,j,d:longint;

begin

read(a,b);

for i:=a to b do

begin

for j:=1 to i do

if (i mod j=0)and(ij) then y:=y+j;

for j:=1 to y do

if (y mod j=0)and(yj) then x:=x+j;

if (x=i)and(x