https://ruclips.ru/en/watch/42EztY6n0NY/18-programming-with-modern-fortran-a-grading-system