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