辗转相除法（欧几里得算法）
（1）算法步骤
第一步，给定两个正整数m，n.
第二步，计算m除以n所得的余数r.
第三步，.
第四步，若,则m，n的最大公约数等于m；否则，
返回第二步。
（2）程序语句
INPUT m,n
DO
r=m MOD n
m=n
n=r
LOOP UNTIL r=0
PRINT m
END