https://pyclip.ru/ru/tapes/DNwUESBw8rQ/16-programming-with-modern-fortran-control-structures