C  EIN EINGEGEBENER ALGEBRAISCHER TERM SOLL AUF KORREKTHEIT DER
C  KLAMMERSETZUNG UEBERPRUEFT WERDEN
	DIMENSION KTERM(60)
	READ(1,5)(KTERM(I),I=1,60)
5	FORMAT(60A1)
	LA=60
6	IF(KTERM(LA)+2016)10,7,10
7	LA =LA-1
	GOTO 6
10	INDEX=0
	DO 150 IZ=1,LA
	IF(KTERM(IZ)+1504)110,100,110
100	INDEX=INDEX+1
	GOTO 150
110	IF(KTERM(IZ)+1440) 150,115,150
115	IF(INDEX) 120,120,130
120	WRITE(1,121)
121	FORMAT('"KLAMMER AUF" FEHLT')
	STOP
130	INDEX=INDEX-1
150	CONTINUE
	IF(INDEX)200,210,220
200	WRITE(1,201)
201	FORMAT('ZU OFT ")"')
	GOTO 250
220	WRITE(1,221)
221	FORMAT('ZU OFT "("')
	GOTO 250
210	WRITE(1,211)
211	FORMAT('DIE KLAMMERN SIND  KORREKT GESETZT')
250	STOP
	END