PROGRAM NAJVECJA_BESEDA
CHARACTER*80 vrst(3),B
INTEGER I,Z,K
PRINT*, 'VNESI 3 VRSTICE TEKSTA'
READ 10, (vrst(I),I=1,3)
10 FORMAT (A)
DO I=1,3
  J=1
  MAX=0
  DO WHILE (J.LT.80)
    DO WHILE (vrst(I)(J:J).EQ.' '.AND.J.LE.80)
	  J=J+1
    ENDDO
    Z=J
    DO WHILE (vrst(I)(J:J).NE.' '.AND.J.LE.80)
      J=J+1
    ENDDO
    K=J
	MAX=K-Z
    IF (MAX.GT.MAX1) THEN
	  MAX1=MAX
	  B=vrst(I)(Z:K)
    ENDIF
  ENDDO	 
ENDDO   	
PRINT*,'NAJVECJA BESEDA=',B
PRINT*,'DOLZINA BESEDE JE',MAX1,'ZNAKOV'
END