Как вы понимаете выражение «недопустимый ущерб»?

недопустимый ущерб физическому лицу: Ущерб, снижающий уровень жизни ниже приемлемого уровня.

Также недопустимый ущерб субъекту РФ: Ущерб, превышающий средства для возмещения ущерба или вследствие которого субъект РФ не может выполнять свои функции в полном объеме.

Недопустимый ущерб:

Ущерб, который не может быть возмещен полностью за счет средств, имеющихся для возмещения, а невозмещенная величина не превышает расчетную прибыль за время восстановления ее до начальной доходности.

Тематики безопасности.

program yravnenie;

var  a,b,c,d,x1,x2,p,q: real; begin  repeat  write('a= ');   readln(a);   if a=0 then writeln('error: a=0. enter another value');   until a< > 0;   write('b= ');   readln(b);   write('c= ');   readln(c);   p: =b/a;   q: =c/a;   d: =sqr(p/2)-q;   if d> 0 then  begin    writeln('x1 = ',-p/2-sqrt(d): 0: 5);     writeln('x2 = ',-p/2+sqrt(d): 0: 5);   end  else  if d=0 then  writeln('x1 = x2 = ',-p/2: 0: 5)  else  begin    writeln('x1 = ',-p/2: 0: 5,'-i*',sqrt(-d): 0: 5);     writeln('x2 = ',-p/2: 0: 5,'+i*',sqrt(-d): 0: 5);   end;   readln; end.

program ms; uses crt; var a: array [1..10] of integer; l,k,s,i: longint; beginclrscr; writeln('введите 10 элементов массива'); for i: =1 to 10 dobegin    readln(a[i]);     if a[i]< 0 then l: =l+a[i];     if a[i]> 0 then k: =k+a[i]; end; s: =l*k; writeln(s); readkey; end.