Код:
var x,y,s,a,b:integer;
begin
readln(x,y);
a:=x*y;
while (x>0) and (y>0) do
if x>y then x:=x mod y
else y:=y mod x;
s:=x+y;
b:=a div s;
writeln(b);
end.
