约数个数shlqsh

程序:

vara,b,t1,t2:longint;i:longint;begin    assign(input,'shlqsh.in');    reset(input);    assign(output,'shlqsh.out');    rewrite(output);    read(a,b);    dec(a);    t1:=0;t2:=0;    for i:=1 to a do    t1:=t1+(a div i);    for i:=1 to b do    t2:=t2+(b div i);    write(t2-t1);    close(input);    close(output);end.