import sequtils, strutils

proc readInt(): int = parseInt readLine stdin

let
  l = readInt()
  m = readInt()
  n = readInt()
  list = [100, 25, 1]

var sum = 0

for (a, b) in [l, m, n].zip list:
  sum += a * b
sum = sum mod 1000

var cnt = 0

for x in list:
  cnt += sum div x
  sum = sum mod x

echo cnt