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