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