Vara, b: integer;n: integer;
BeginRead(a, b);n := 1;While (n mod a <> 0) Or (n mod b <> 0) DoInc(n);WriteLn(n);End.
Var
a, b: integer;
n: integer;
Begin
Read(a, b);
n := 1;
While (n mod a <> 0) Or (n mod b <> 0) Do
Inc(n);
WriteLn(n);
End.