program speedrun
  implicit none
  integer::X
  logical::chk=.false.
  read*,X
  if(X==0.or.X==4.or.X==10)chk=.true.
  print"(A)",trim(merge("Yes","No ",chk))
end program speedrun