нужно сделать блок схему по этой программе Program opredeleniesutok; var n:integ Построить блок схему алгоритма