记录编号	12615	评测结果	AAAAAAAAAA
题目名称	亲和数	最终得分	100
用户昵称	ybh	是否通过	通过
代码语言	Pascal	运行时间	3.119 s
提交时间	2009-09-15 21:06:19	内存使用	0.12 MiB

program QinHeShu;
var
  a,b,i,j,he,he1:longint;
  s:integer;
begin
  assign(input,'amicable.in');
  reset(input);
  assign(output,'amicable.out');
  rewrite(output);
  readln(a,b);
  s:=0;
  for i:=a to b do
  begin
    he:=0;
    he1:=0;
    for j:=1 to round(sqrt(i)) do
      if i mod j=0 then
      begin
        he:=he+j+(i div j);
      end;
    he:=he-i;
    if he<=i then continue;
    for j:=1 to round(sqrt(he)) do
      if he mod j=0 then
      begin
        he1:=he1+j+(he div j);
      end;
    if he1-he=i then
    begin
      s:=s+1;
    end
  end;
  writeln(s);
  close(input);
  close(output)
end.