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