PRINT
PRINT "ユークリッドの互除法で最大公約数を求める"
PRINT
INPUT PROMPT "自然数その１？  ":a
INPUT PROMPT "自然数その２？  ":b
PRINT
DO UNTIL b=0
   LET t=b
   LET b=MOD(a,b)
   LET a=t
LOOP
PRINT "最大公約数 ＝";a
END