QBASIC PROGRAM TO CONVERT TEMPERATURE IN CELCIUS TO FAHRENHEIT (FUNCTION)

DECLARE FUNCTION FA(C)
CLS
INPUT "ENTER CELCIUS ";C
PRINT "CELCIUS TO FAHRENHEIT ";FA(C)
END

FUNCTION FA(C)
F =9 *C / 5+32
FA=F
END FUNCTION