C SHIKENO SEISEKI PROGRAM SEISEKI1 INTEGER BANGO,TENSU WRITE(6,*) 'BANGO TENSU ??' READ(5,*) BANGO,TENSU IF(TENSU.GE.80)THEN WRITE(6,*) BANGO, TENSU, ' GOKAKU' ELSE WRITE(6,*) BANGO, TENSU, ' FU-GOKAKU' ENDIF STOP END