program main implicit none logical::dp(-8:8,-8:8),dp2(-8:8,-8:8) integer::i,j,k integer*8::X,Y data dp/289*.false./ read *,X,Y if(abs(X).gt.6.or.abs(Y).gt.6) then print '(a)',"NO" return end if dp(0,0)=.true. do k=1,3 dp2 = dp do i=-6,6 do j=-6,6 dp2(i,j) = & dp(i-1,j-2).or. & dp(i+1,j+2).or. & dp(i-1,j+2).or. & dp(i+1,j-2).or. & dp(i-2,j-1).or. & dp(i+2,j+1).or. & dp(i-2,j+1).or. & dp(i+2,j-1) end do end do dp = dp.or.dp2 end do if(dp(X,Y).eqv..true.) then print '(a)',"YES" else print '(a)',"NO" end if end program main