convert temperature from celcius to farenheit(FUNCTION)

DECLARE FUNCTION CONVERT(C)
CLS
INPUT "ENTER CELCIUS" ;C
PRINT "CELCIUS TO FARENHEIT";CONVERT (C)
END

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