C++ :

#include<bits/stdc++.h>
using namespace std;
int n,m;
int main()
{
	cin>>n>>m;
	cout<<n/__gcd(n,m)*__gcd(n,m)*m/__gcd(n,m);
   return 0;
}

Pascal :

var m,n,a,b,r:integer;
begin  
  readln(a,b);  
  m:=a;  
  n:=b;  
  r:=m mod n; 
  while r<>0 do 
  begin  
    m:=n;    
    n:=r;   
    r:=m mod n; 
  end; 
writeln(a * b div n);
end.