program mediana
        implicit none
        integer :: n,i,j,med1,med2
        real, dimension(100) :: dane
        real :: temp

        open(unit=11,file="dane.txt")
        read(11,*) n
                do i=1,n
                read(11,*) dane(i)
                enddo

        close(11)
                !do i=1,n
                !write(*,*) dane(i)
                !enddo
        do i=1,n-1
                do j=i+1,n
                if (dane(i)>dane(j)) then
                temp=dane(i)
                dane(i)=dane(j)
                dane(j)=temp
                endif
                enddo
        enddo
                do i=1,n
                write(*,*) dane(i)
                enddo
        if (mod(n,2).eq.0) then
        med1=n/2
        med2=n/2+1
        temp=(dane(med1)+dane(med2))/2
        else
        med1=(n+1)/2
        temp=dane(med1)
        endif
        write(*,*) "mediana=",temp

        end