program assign2_3 implicit none integer :: i,j do i=1,5 write(*,'(5i2)',advance='no') (j,j=1,i) write(*,'(":printed",i2," number(s)")') i enddo end program assign2_3