C++ :

#include<bits/stdc++.h>
using namespace std;
long long a,b,t;
int main()
{
	cin>>a>>b;
	t=max(a,b);
	while(t%min(a,b)!=0)
	    t+=max(a,b);
	cout<<t;
	
	return 0;
}

Pascal :

var
  a,b,s,c,n,m,r:longint;
begin
  readln(m,n);
  a:=m;
 
  b:=n;
 
  repeat
 
  r:=a mod b;
 
  a:=b;
 
  b:=r;
 
  until r=0;
 
  s:=n*m div a;
 
  writeln(s);
end.