program main
    use,intrinsic :: iso_fortran_env
    implicit none
    integer(int32):: x

    read*, x
    if ((x/100)*5 >= mod(x,100)) then
        print'(i0)', 1
    else
        print'(i0)', 0
    end if
end program main