https://acadsocial.ru/video/5-programmirovanie-pascal-uslovnyy-operato/