Program to find Average of three number in QBASIC
CLS
INPUT "Enter three number"; a, b, c
d = a + b + c
d = d / 3
PRINT "Average="; d
END