program main implicit none integer :: L, M, N read *, L read *, M read *, N print *, mod(N, 25) + mod(M + N/25, 4) + mod(L + (M + N/25) / 4, 10) end program main