https://acadinternet.ru/video/3-programmirovanie-paskal-operator-while/