https://acadedu.ru/video/pascal-usloviya-if-else-urok-2/