program main implicit none integer :: A, B character(10) :: S read *, A, B, S print *, A+B, S end program main