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