Действие единых цен, установление прейскуранта говорит: а) о развитии рыночной б) о процветании монополий в) о плановой г) нет правильного ответа

Вроде как правильный ответ  под буквой в

Var s: string; x,i: byte; begin writeln('введите строку: '); readln(s); for i: =2 to length(s) do begin   if s[i]=' '     then begin       x: =i+1;       while (s[x]< > ' ') and (x< length(s)) do begin         delete(s,x,1);       end;       delete(s,x,1);       break;     end; end; writeln(s); end. пример 1: мама мыла мама  пример  2: мама мыла раму мама раму ps: считается, что строка не начинается с пробела и не может быть  два пробела подряд

Const n=15; var   a: array[1..n] of integer;   s,max: integer;   k,i: byte; begin   randomize;   max: =0; s: =0;       for i: =1 to n do begin         a[i]: =random(10,120);     write (a[i]: 4);     if a[i] > max       then begin max: =a[i]; k: =i end   end;   for i: =k to n do         s: =s+a[i];   writeln;   writeln ('максимальный элемент = ',max);   writeln ('сумма от максимального = ',s); end. пример: 15   27   27   26   74   66   23   61 119   93   57   92   35   61 113 максимальный элемент = 119 сумма от максимального = 570