open Printf
open Scanf

let id x = x

let rec seq s t f =
  if s > t then []
  else
    let x = f s in
    x :: seq (s + 1) t f

let solve x =
  let dp = Array.init (x + 1) @@ fun _ -> 0 in
  begin
    dp.(0) <- 1;
    List.iter (fun i ->
        List.iter (fun j ->
            if dp.(j) = 1 && i + j <= x then dp.(i + j) <- 1 else ()
          ) @@ seq 0 x id
      ) @@ seq 100 105 id;
    dp.(x)
  end                              

let () =
  scanf "%d " solve |> printf "%d\n"
