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