C SHIKENO SEISEKI 3   TEXT P.38
	PROGRAM SEISEKI3
	INTEGER BANGO,TENSU
	INTEGER A,B,C

C	--- SHOKIKA ---
	A=0
	B=0
	C=0
	
1	WRITE(6,*) 'BANGO  TENSU ??'
	READ(5,*) BANGO,TENSU

	IF(BANGO.EQ.999)THEN
	  WRITE(6,*) A,B,C
	  STOP
	ENDIF

	WRITE(6,*) BANGO,TENSU	

	IF(TENSU.GE.80)THEN
	    A=A+1
	  ELSE IF(TENSU.GE.60)THEN
	    B=B+1
	  ELSE
	    C=C+1
	ENDIF

	GO TO 1

	END