program a
real cm(n),Fs(n),a,cmn(n)
integer i,j,n
do while(((Fs-1.2)/1.2)<=0.01)
do i=1,n
read*,cm(i)
call subroutine bishop
write(*,*)Fs(i)
a=Fs-1.2
do i=1,n-1
tmin=i
do j=i+1,n
if(a(j)<a(tmin)) tmin=j
enddo
t=a(i)
a(i)=a(tmin)
a(tmin)=t
enddo
enddo
print*,cm(t)
if cm(i)>cm(t)
cmn(i)=cm(i)-0.1*abs(cm(i)-cm(t))
else
cmn(i)=cm(i)+0.1*abs(cm(i)-cm(t))
endif
enddo
print*,cmn(t)
end