program main implicit none integer::a(3),b(3),i integer::adot(2),bdot(2) character*302::vera,verb character,parameter::dot='.' read *, vera read *, verb adot(1) = SCAN(vera,dot) adot(2) = SCAN(vera,dot,BACK=.true.) bdot(1) = SCAN(verb,dot) bdot(2) = SCAN(verb,dot,BACK=.true.) read(vera( 1:adot(1)-1), *)a(1) read(vera(adot(1)+1:adot(2)-1) , *)a(2) read(vera(adot(2)+1:LEN_TRIM(vera)),*)a(3) read(verb( 1:bdot(1)-1), *)b(1) read(verb(bdot(1)+1:bdot(2)-1), *)b(2) read(verb(bdot(2)+1:LEN_TRIM(verb)),*)b(3) do i=1,3 if(a(i).gt.b(i) ) then print '(a)',"YES" return else if(a(i).lt.b(i)) then print '(a)',"NO" return end if end do print '(a)',"YES" end program main