[<AutoOpen>]
module Program

open System

let read f = stdin.ReadLine() |> f
let reada f = stdin.ReadLine().Split() |> Array.map f
let reads f = stdin.ReadLine().Split() |> Array.toList |> List.map f

[<EntryPoint>]
let main _ =
    let X = read int

    let dp = Array.create (X + 1) false
    dp.[0] <- true

    for i in [100 .. X] do
        dp.[i] <- List.fold (fun s x -> s || dp.[i - x]) false [100 .. 105]

    if dp.[X] then 1 else 0
    |> printfn "%i"

    0