C++ :

#include<bits/stdc++.h>
using namespace std;
int n,m;
int main()
{
	cin>>n>>m;
	if(n>m) swap(n,m);
	for(int i=n; ;i--)
		if(n%i==0&&m%i==0)
		{
			cout<<i<<" ";
			break;
		}
	for(int i=1;;i++)
		if(i%n==0&&i%m==0)
		{
			cout<<i;
			break;
		}
	return 0;
}

Pascal :

var m,n,j:int64;
i:longint;
begin
 readln(m,n);
 for i:=m downto 2 do
  if (m mod i=0) and (n mod i=0) then
  begin
  write(i,' ');
  break;
  end;
    j:=trunc(m*n/i);
    writeln(j);
    end.