#13 CONVERT TEMPERATURE IN CELSIUS

DECLARE FUNCTION CONVERT (N)
CLS
INPUT "TEMPERATURE IN CELSIUS";N
PRINT "CELSIUS INTO FARHENHEIT";CONVERT(N)
END

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