Var a, b, c, d: integer;
Function minb(x, y: integer): integer;
Var r, t: integer;
begin
If x>y then starts t: = x; x:= y； y:= t； End;
t:= x * y；
r:= x mody；
And r<& gt0 do.
begin
x:= y；
y:= r；
r:= x mody；
End;
minb:= t div y；
End;
begin
readln(a，b，c)；
d:=minb(a，b)；
writeln(minb(d，c))；
End.