Процессы управления в обществе (в социальных системах) называют управлением людьми или социальным управлением, что относится преимущественно к области социальных наук.
Социальное управление включает два основных подкласса - управление индивидуальной деятельностью человека и управление коллективной деятельностью людей. Важнейшими видами социального управления являются административно-государственное (политическое) управление, управление социально-культурной сферой (духовным производством) , управление материальным производством.
Люди как главная производительная сила познают и используют законы природы и общества в процессе производства, распределения, обмена и потребления материальных и духовных благ. Объектами изучения при этом выступают социальные системы, а предметом - система управления различными сферами общества и областями организации социальной жизни. Например, управление общественным производством включает процессы управления народным хозяйством, отраслью, регионом, объединением, предприятием, а также управление внутри каждой социально-экономической системы. Это - уровни управления.
В рамках социального управления выделяют две основные его формы - управление материальными ресурсами и управление человеческими ресурсами. Последнее включает процессы управления социальным развитием, образованием, занятостью, трудом, социальным обеспечением и др. Это - подвиды социального управления.
<span>Функции управления - это особые виды деятельности, выражающие направления или стадии осуществления целенаправленного воздействия на связи и отношения людей в процессе жизнедеятельности общества и управления им. К основным функциям социального управления относятся планирование и прогнозирование, организация, координация и регулирование, стимулирование и обучение, анализ и контроль. </span>
Ошибка не в условном операторе, а в операторе вывода.
Вероятно, забыли указать после запятой в операторе вывода имя переменной max.
writeln('Round(max)=',max)
Var top, sum, An, An1 :integer;
Begin
read(top);
sum:=2;
An:=1;
An1:=1;
repeat
An := An + An1;
An1 := An - An1;
sum := sum + An;
write(An:6)
until sum >= top
End.
1 рис.-караси и хищные. 2 рис.-в 1 круге-караси,во 2-хищные,в большм круге-рыбы