integer*4 :: i,j,m,n,iloc,pos,iter,maxiter,numarg,tmplen
integer*4 :: WybierzOsobnika,Najlepszy,ZnajdzPodobnego,FindWorst
integer*4 :: status
integer*4 :: i,j,m,n,iloc,pos,iter,maxiter,numarg,tmplen
integer*4 :: WybierzOsobnika,Najlepszy,ZnajdzPodobnego,FindWorst
integer*4 :: status