ami varianta da kaznem dvumeren masiv
ako "izteglish" dadeno chislo vav vtorata dimesnia pishesh 1 i da kazhem che po default tam e 0
posle na vsiaka proverka pravish dali ima veche 1 ako da - "teglish" pak
inache ideiata da se generirat niakolko intervala i da se tegli v tiah e dobra zashtoto tochno random generatora na Pascal e dosta ne random

predi mnogo vreme kogato si pisah diplomata rabota mi triabvashe i ne pomnia sled kolko prevartania mozheh da vastanovia parvonachalnata podredba