program main integer :: a, b character(10) :: s read(*,*) a, b read(*,*) s write(*,*) a+b, s end program main