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

题目描述
输入二个正整数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.