https://ruclips.ru/en/watch/67dqBbRXfgM/learning-pascal-x25-classes-and-objects