program main integer :: a, b character(len = 10) :: s read *, a, b read *, s print *, a + b, ' ', s end program main