PRINT
PRINT "２つの自然数の 最大公約数 と 最小公倍数 と 比 を表示します。"
PRINT
INPUT PROMPT "１つ目の自然数は？ ":a
INPUT PROMPT "２つ目の自然数は？ ":b
PRINT
LET c=GCD(a,b)
PRINT "最大公約数は";c;"です。"
PRINT "最小公倍数は";LCM(a,b);"です。"
PRINT "比は";a/c;"：";b/c;"です。"
PRINT
END

EXTERNAL FUNCTION GCD(s,t)      ! 最大公約数を求める関数
DO
   LET m=MOD(s,t)
   IF m=0 THEN EXIT DO
   LET s=t
   LET t=m
LOOP
LET gcd=t
END FUNCTION

EXTERNAL FUNCTION LCM(X,Y)      ! 最小公倍数を求める関数
IF X<Y THEN
   LET Z=X
   LET X=Y
   LET Y=Z
END IF
LET T=X*Y
10 IF Y=0 THEN
      LET LCM=T/X
      EXIT FUNCTION 
   END IF
   LET R=X
20 LET R=R-Y
   IF R>=Y THEN GOTO 20
   LET X=Y
   LET Y=R
   GOTO 10
END FUNCTION