Проверить, является ли данный массив упорядоченным по убыванию

    Program lab2
    INTEGER a(5) 
    INTEGER n, i, k
    
1    read (*,*) n
    if (n<1 or n>5) then 
        write(*,*) 'vvedite n ot 1 do 5'
        goto 1
    end if
    
    do i=1,n
        write(*,*) 'vvedite a(', i, ')='
        read(*,*) a(i)
    end do
    
    do i=1,n-1
        if a(i)<a(i+1) then
            write(*,*) 'ne uporiadochen'
            k=1
            exit
        end if
    end do   
    
    if k=0 write(*,*) 'uporiadochen'
    End Program lab2

    Program lab2
    INTEGER a(5) 
    INTEGER n, i, k
    
1    read (*,*) n
    if (n .le. 1 .or. n .gt. 5) then 
        write(*,*) 'vvedite n ot 1 do 5'
        goto 1
    end if
    
    k=0
    
    do i=1,n
        write(*,*) 'vvedite a(', i, ')='
        read(*,*) a(i)
    end do
    
    do i=1,n-1
        if (a(i) .le. a(i+1)) then
            write(*,*) 'ne uporiadochen'
            k=1
            exit
        end if
    end do   
    
    if (k .eq. 0) write(*,*) 'uporiadochen'
    End Program lab2