DIMENSION L(5)
	TYPE 3
3	FORMAT (' CONTROL TASK')
6	READ (5,1) (L(I),I=1,5)
1	FORMAT (X5I6)
	K=(L(1)+L(2)+L(3)+L(4)+L(5))
	I=K
	I=I/K
	IF (I.NE.1) TYPE 4
4	FORMAT ('0ERROR IN PROGRAMM')
	TYPE 2
2	FORMAT (/X'SUM OF VECTOR L')
	WRITE (7,1) K
	GOTO 6
	STOP
	END