PROGRAM CONVRT INTEGER FAHREN REAL CELSIU DO 100 FAHREN=-100,200 CELSIU=(FAHREN-32)*5./9. PRINT *,FAHREN,CELSIU 100 CONTINUE END