PROGRAM MAIN
    IMPLICIT NONE
    INTEGER :: degrees_fahrenheit, degrees_centigrade

    READ *, degrees_fahrenheit
    degrees_centigrade = 5*(degrees_fahrenheit-32)/9
    PRINT *, degrees_centigrade
END