PRINT
PRINT "２つの分数の和を求めます。"
INPUT PROMPT "１番目の分数：　分子は？　":P1
INPUT PROMPT "１番目の分数：　分母は？　":Q1
INPUT PROMPT "２番目の分数：　分子は？　":P2
INPUT PROMPT "２番目の分数：　分母は？　":Q2
PRINT
LET P=P1*Q2+P2*Q1
LET Q=Q1*Q2
LET G=gcd(P,Q)
PRINT P/G;"/";Q/G
PRINT
END

EXTERNAL FUNCTION gcd(a,b)
DO UNTIL b=0
   LET t=b
   LET b=MOD(a,b)
   LET a=t
LOOP
LET gcd=a
END FUNCTION