https://ruclips.ru/en/watch/vgms9Tqneac/pascal-training-pattern-program-in-c