PRINT
PRINT "２つの自然数を小さい順に並べて、最大公約数を求めます。"
PRINT
INPUT PROMPT "自然数を入力してください。": a
INPUT PROMPT "もう１つ自然数を入力してください。（ 同じ数でも可 ）": b
PRINT 
IF b=AMARI(b,a) THEN
   PRINT b,a
ELSE
   PRINT a,b
END IF
PRINT
PRINT "最大公約数 ＝";SDKYS(a,b)
PRINT
END

EXTERNAL FUNCTION AMARI(x,y)
IF x<y THEN
   LET AMARI=x
ELSE
   LET AMARI=AMARI(x-y,y)
END IF
END FUNCTION

EXTERNAL FUNCTION SDKYS(m,n)  !ユークリッドの互除法
IF n=0 THEN
   LET SDKYS=m
ELSE
   LET SDKYS=SDKYS(n,AMARI(m,n))
END IF
END FUNCTION