PRINT
PRINT "二重根号を作る"
PRINT
INPUT PROMPT "自然数 a ?  ":a
INPUT PROMPT "自然数 b ?  ":b
PRINT
LET AA=SQR(a)
LET BB=SQR(b)
LET CC=AA+BB
LET DD=SQR(a+b+2*SQR(a*b))
PRINT "SQR (";a;") + SQR (";b;") ＝ ";CC
PRINT "SQR (";a+b;"+ 2 * SQR (";a*b;")) ＝ ";DD
PRINT
END