implicit none integer :: a, b character(10) :: s read(*,*) a, b read(*,*) s write(*,'(1i0, X, A)') a+b, s end