Примеры программ на языке QBASIC

DECLARE FUNCTION NOD& (N1&, N2&)
PRINT "Введите 2 натуральных числа, разделяя их запятой"
INPUT "", M&, N&
PRINT "Их наибольший общий делитель равен "; NOD&(M&, N&)
END

FUNCTION NOD& (N1&, N2&)
  IF N1& = 0 THEN
     NOD& = N2&
  ELSE
     NOD& = NOD&(N2& MOD N1&, N1&)
  END IF
END FUNCTION