1   REM センター試験1997数学B
2   REM Microsoft BASIC互換モードで実行してください 
100 INPUT "a=";A
110 INPUT "b=";B
120 Q=INT(A/B)
130 R=A-Q*B
140 PRINT Q
150 IF R=0 THEN GOTO 190
160 A=B
170 B=R
180 GOTO 120
190 PRINT B
200 END
