function wynik= podzial(tab,r)
    wynik = -1;
    for i=1:r+1 do
        disp(tab(i))
    end
     minimalna = tab(1);
     maksymalna = tab(1);
    for i=1:r+1 do
        for j=1:i do
            if(tab(j)<minimalna)
                minimalna = tab(j)
            end
         end
         for k=r+1:i do
             if(tab(k)>maksymalna)
                 maksymalna = tab(k)
              end
         end
         if(minimalna == maksymalna)
             wynik = i
             break               
         end
end
endfunction