program main
    implicit none
    INTEGER i
    INTEGER, DIMENSION(3) :: a
    CHARACTER s * 3
    read(*, *) s
    do i = 1, 3
        READ(s(i : i), *) a(i)
    enddo
    WRITE(*, *) sum(a)
end program main