Convert celsius in fahrenheit

DECLARE FUNCTION CONVERT(C)
CLS
INPUT"ENTER TEMPERATURE IN CELSIUS";C
PRINT"TEMPERATURE IN FAHRENHEIT=";CONVERT(C)
END

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