PROGRAM NO1499 INTEGER :: I,T,DUM INTEGER,ALLOCATABLE,DIMENSION(:):: TI CHARACTER :: STR READ(*,*) T ALLOCATE(TI(T)) DO I = 1 , T READ(*,*) STR,STR,TI(I),STR END DO DO I = 1 , T DUM = 0 DUM = TI(I) + 1 WRITE(*,101) 'Hitsuji ga ',DUM,' hiki' END DO 101 FORMAT (A,I0,A) END PROGRAM