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)        
    end do

    write(*,"(i0)") sum(a)

end program main