program main
    implicit none
    integer::n=10,i,j,k
    read*,n
    do i=1,n
        do j=1,n-i+1
            write(*,"(i0)",advance="no"),n
        end do
        print*,""
    end do
end program