C SHIKENO SEISEKI 2   TEXT P.32
	PROGRAM SEISEKI2
	INTEGER BANGO,TENSU
	INTEGER A,B

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

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

	IF(BANGO.GE.5)THEN
	  WRITE(6,*)A,B
	  STOP
	ENDIF

	GO TO 1

	END