PROGRAM NO1499 INTEGER :: I,T,DUM INTEGER,ALLOCATABLE,DIMENSION(:):: TI READ(*,*) T ALLOCATE(TI(T)) DO I = 1 , T READ(*,*) TI(I) END DO DO I = 1 , T DUM = 0 DUM = TI(I) + 1 WRITE(*,*) 'hitsuji ga',DUM,'hiki' END DO END PROGRAM