最大公约数和最小公倍数问题

题目描述
输入二个正整数x0,y0(2<=x0<100000,2<=y0<=1000000),求出满足下列条件的P,Q的个数

条件:
1.P,Q是正整数
2.要求P,Q以x0为最大公约数,以y0为最小公倍数.
试求:满足条件的所有可能的两个正整数的个数.

输入输出格式
输入格式：
二个正整数x0,y0

输出格式：
一个数，表示求出满足条件的P,Q的个数

输入输出样例
输入样例#1：
3 60
输出样例#1：
4

说明
P,Q有4种
3 60 15 12 12 15 60 3
两个数的乘积=最大公约数*最小公倍数

---

var
  n,m,i,k,g:longint;
function pd(a,b:longint):boolean;
var r:longint;
begin
  repeat
    r:=a mod b;
    a:=b; b:=r;
  until b=0;
  if a=n then exit(true) 
    else exit(false);
end;
begin
  readln(n,m);
  for i:=n to m do 
    if (n*m) mod i=0 then 
      if pd(i,(n*m) div i) then inc(k);
  writeln(k);
end.