program T01 implicit none integer::a,b character::c*10 read(*,*)a,b read(*,*)c write(*,*)a+b,c end program T01