C++ :

#include<cstdio>
#include<math.h>
int main()
{
	long long int a,b,x,y,r;
	scanf("%lld %lld",&x,&y);
	a=x;
	b=y;
	if(y>x)
	{
		r=y;
		y=x;
		x=r;
	}
	r=x%y;
	while(r!=0)
	{
		x=y;
		y=r;
		r=x%y;
	}
	printf("%lld %lld",y,a*b/y);
}

Pascal :

var
 m,n,r,x,a,b:longint;
begin
 readln(m,n);
 a:=m; b:=n;
 repeat
  r:=m mod n;
  m:=n;
  n:=r;
 until r=0;
 x:=a*b div m;
 write(m,' ',x);
 end.