vstup_slova="vstup.txt";n=4;readarray slova < $vstup_slova || exit 1;pocet_slov=${#slova[@]};for (( a=0; a < $pocet_slov; a++))do za_sebou=1;for (( b=$a+1; b < $pocet_slov; b++))do if [ "x${slova[$a]}" != "x${slova[$b]}" ]; then break; fi;let za_sebou++;done;if [ $za_sebou = $n ]; then echo ${slova[$a]};fi; if [ $za_sebou -gt 2 ]; then let a+=za_sebou-1;fi;done;