program W
implicit none
integer::N
character(100)::S="1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545"
read*,N
print"(A)",S(N:N)
end program W