Girilen iki sayının OBEB'ini bulan program

CLS
 PRINT "GIRILEN IKI SAYININ OBEBINI BULAN PROGRAM"
 INPUT "BIRINCI SAYI = ", N
 INPUT "IKINCI SAYI = ", M
 IF N < M THEN
  YEDEK = N
  N = M
  M = YEDEK
 END IF

KALANBUL:
 C = N - INT(N / M) * M
 IF C = 0 THEN
  PRINT "OBEB = ", M
  END
 END IF
 N = M
 M = C
 GOTO KALANBUL

Örnek Çıktı:

GIRILEN IKI SAYININ OBEBINI BULAN PROGRAM
BIRINCI SAYI = 126
IKINCI SAYI = 34
OBEB = 2