Qbasic to convert temperature in fahrenheit in celsius 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