DECLARE SUB Temperature (F)
CLS
Input"Enter the temperature in Fahrenheit"; F
CALL Temperature (F)
END
SUB Temperature (F)
Temperature in Celsius= (5(f-32)/9)
Print"The temperature in Celsius"; Temperature in Celsius
END SUB