QBASIC to conver Temperature in Celsius in Fahrenheit using FUNCTION

DECLARE FUNCTION CEL ( C )
CLS
INPUT "Enter celsius"; C
PRINT "Temperature in celsius fahrenheit = "; CEL ( C )
END

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