Блок схема программы, реализующей данный алгоритм, Листинг программы, F