program poisci_besede
integer i,j,zac,kon
character p(3)*80
print*,'vnesi 3 vrstice besedila'
read 10,p
10 format (a)
do i=1,3
   j=1
    do while (j.le.80)
	 do while(p(i)(j:j).eq.' '.and.j.le.80)
	 j=j+1
	 enddo
     zac=j
	  do while(p(i)(j:j).ne.' '.and.j.le.80)
	   j=j+1
	  enddo
	 kon=j-1
     print*,p(i)(zac:kon)
	enddo

enddo
end