https://acadinternet.ru/video/6-programmirovanie-pascal-prisvaivanie-ch/