Объясните, почему модели социальной стабильности в развитых странах не выдержали испытания.

При постоянном росте социальных программ постепенно возникала ситуация, когда в бюджете не оставалось на них денег. Бизнес, сдерживаемый налогами и размерами государственного сектора, не мог обеспечить достаточное количество налоговых поступлений. Потому модель социальной стабильности показала свои отрицательные свойства при длительном её использовании. Однако означает ли это её неэффективность в принципе? Возможно, сегодня возвращение на время к этой модели оказалось бы более эффективным способом выхода из мирового кризиса, нежели «меры жёсткой экономии».

program massiv ;
uses crt;
type mas=array[1..1000] of integer;
var i,s,n,p,k: integer;
    m:mas;
begin
randomize;
for i:=1 to 10 do
begin
m[i]:=random(45)+1;
write(m[i], '  ');
s:=S+m[i];
end;
writeln;
write( s);
end.   

program massiv ;
uses crt;
type mas=array[1..1000] of integer;
var i,s,n,p,k: integer;
    m:mas;
begin s:=1;
randomize;
for i:=1 to 10 do
begin
m[i]:=random(5)+1;
write(m[i], '  ');
s:=S*m[i];
end;
writeln;
write( s);
end.   

program massiv ;
uses crt;
type mas=array[1..1000] of integer;
var i,n,p,k: integer;
    m:mas; s:real;
begin s:=0;
randomize;
for i:=1 to 10 do
begin
m[i]:=random(10)+1;
write(m[i], '  ');
s:=S+m[i];
end;
writeln;
write( s/10);
end.

program Max_Element;
var M: array [1..20] of byte;
max, i, n: byte;
begin
randomize;
for i:=1 to 20 do
begin
m[i]:=random(40);
write (m[i],’ ‘);
end;
writeln;
max:=m[1]; {считать 1-й элемент максимальным}
n:=1; {запомнить номер максимального элемента}
for i:=2 to 20 do {проверить все элементы, начиная со второго}
begin
if m[i]>max then {если очередной (i-й) элемент массива больше чем max}
begin
max:=m[i]; {то считать максимальным i-й элемент}
n:=i; {и запомнить его порядковый номер}
end;
end;
writeln (‘Максимальный элемент: ‘,max);
writeln (‘Он расположен на ‘,n,’ месте‘)
end.