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