function GetMaxYueShu(M,N:Integer):Integer;
begin
Result := 0;
for I:=Min(M,N)-1 downto 0 begin
if (I mod M=0)and(I mod N=0) then begin
Result := I;
Exit;
end
end;
end;