program zadachaD;
uses crt;
var l,i,x,m, n:integer;
f,f1:text;
k:real ;
begin
clrscr;
assign(f,'problem.in');
assign(f1,'problem.out');
reset(f);
readln(n,m);
i:=(n-1);
while i:=0 do begin
x:=n*(i+1);
end;
l:=x mod m;
if (l=0) then  begin
k:=x/m;
rewrite(f1);
writeln(k);
close(f);
close(f1);
end;
end.