function GetMaxYueShu(M,N:Integer):Integer;beginResult := 0;for I:=Min(M,N)-1 downto 0 beginif (I mod M=0)and(I mod N=0) then beginResult := I;Exit;endend;end;