euclidの互除法は最大公約数を求めるアルゴリズムですね。 最小公約数を求めるためには DEF LCD(A,B) RETURN 1 END とする必要があります。 ごめんなさい。