program W implicit none integer::N read*,N print"(I0)",2017-N end program W