最大公約数最小公倍数＆

＃最大公約数
DEF HCF（X、Y）：
     IF X> Y：
        S = yの
     他：
        S = Y
     用 I における範囲（1、S + 1 ）：
         もし Y％I == 0 かつ X％I == 0：
            HCF = I
     リターンHCF
X = INT（INPUT（" 番号を入力してください。" ））
Y = INT（INPUT（" 別の番号を入力してください。" ））
 印刷（X、" および"、Y、" 最大公約数"、HCF（X、Y））

#最小公倍数

DEF HCF（X、Y）：
    x> yの場合：
        S = Y
    そうしないと：
        S = X
    範囲内のiについて（1、1 + S）。
        もしY％I == 0かつX％I == 0：

            HCF = X * Y / I
    リターンINT（HCF）
X = INT（入力（ "番号を入力してください。"））
Y = INT（入力（ "別の番号を入力してください"））
プリント（X、 "および"、yは、 "最大公約数である"、HCF（X、Y））