program uredi
integer p(20),i,seme,j,c,n
seme=37
do i=1,20
  p(i)=int(ran(seme)*61-10)
enddo
n=20
do i=1,n-1
  do j=1,n-i
   if(p(j).gt.p(j+1)) then
   c=p(j)
   p(j)=p(j+1)
   p(j+1)=c
   endif
  enddo
enddo
print*,p
end