100 REM GCM,LCM 110 PRINT "最大公約数と最小公倍数を求めます。" 120 PRINT "任意の整数を,で区切って2つ入力して下さい。" 125 PRINT "例えば12707,12319を入力して、Enter" 130 INPUT A,B 140 AB=A*B 150 R=A-INT(A/B)*B 160 IF R=0 THEN 190 170 A=B:B=R 180 GOTO 150 190 PRINT "GCM=";B, "LCM=";AB/B 200 END