The following program (which is available by clicking here) has been badly laid out, Reformat it so its is neat and readable but performs exactly the same function,
PROGRAM MAIN;INTEGER::degreesfahrenheit& ,degreescentigrade;READ*,& degreesfahrenheit;degreescentigrade& =5*(degreesfahrenheit-32)/9;PRINT*,& degreesCENtiGrAde;END