(1)
INPUT "M,N="; M, N
FOR I = M TO N
  IF I MOD 2 = 0 THEN GOTO 1
  FOR J = 2 TO INT(SQR(I + 2))
    IF I MOD J = 0 OR (I + 2) MOD J = 0 THEN GOTO 1
  NEXT J
  PRINT I, I + 2
1 NEXT I

(2)
INPUT "N="; N
DIM A(N)
FOR I = 1 TO N
  INPUT A(I)
NEXT I
B = A(1)
FOR I = 2 TO N
  IF A(I) > B THEN X = A(I): Y = B ELSE X = B: Y = A(I)
  Z = 1: C = X
  DO WHILE C MOD Y <> 0
    Z = Z + 1
    C = C + X
  LOOP
  B = C
NEXT I
PRINT B
END

求N个数之间的最大公约数 
可以按照最小公倍数的写法编写