求两个数的最大公约数和最小公倍数。
输入样例： 12 15
输出样例： Yueshu=3
Beishu=60

Var m,n,i,s,t:longint;
Begin
   Readln(n,m);
   If  n<m    then begin t:=n; n:=m; m:=t; end;
       i:=1 ;      
s:=m*i;
 While    s mod n<>0      do
  Begin
         inc(i) ; 
     S:=m*i;
  End;
          writeln('Yueshu=',m*n div s)  ;           
Writeln(‘Beishu=’, s);
End.