1) QBasic average of three numbers (function)

DECLARE FUNCTION AVG (A, B, C)
CLS
INPUT  "Enter any three Numbers " ; A,  B, C
PRINT "Average of three numbers =" ; AVG(A, B, C)
END

FUNCTION  AVG (A, B, C)
AV = ( A + B + C ) / 3
AVG = AV
END FUNCTION