На свободном рынке с ростом цены некоторого товара предложения этого товара растет. Кривые зависимости предложения q от цены P различны для разных товаров. С на товар, как правило, уменьшается с ростом цены. Если изобразить на одном графике кривую с с и кривую предложения Q(предл), то они пересекутся в одной точке(Q(0), P(0) Величина P(0) называется равновесной ценой, так как при этой цене с равен предложению. Необходимо найти равновесную цену. Исходные данные: функция с функция предложения: S(p) = p^2/3 + p/7 + 90.

Блок-схема - в прилагаемом файле.
var n:integer; a,b,r,x,y,z,p,s:real;
begin
writeln('Введите номер фигуры: 1) прямоугольник; 2) круг; 3) треугольник:');
readln(n);
case n of
 1: begin 
    write('a, b: '); readln(a,b);
    s:=a*b;
    writeln('s = ',s);
    end;
 2: begin 
    write('r = '); readln(r);
    s:=pi*r*r;
    writeln('s = ',s);
    end;
 3: begin 
    write('x, y, z: '); readln(x,y,z);
    p:=(x+y+z)/2;    s:=sqrt(p*(p-x)*(p-y)*(p-z));    writeln('s = ',s);
    end;
 else writeln('Ошибка ввода');
 end;
end.

Пример:
Введите номер фигуры: 1) прямоугольник; 2) круг; 3) треугольник:
3
x, y, z: 3 4 5
s = 6

// PascalABC.NET 3.2, сборка 1383 от 09.02.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('Количество строк в массиве:');
  var m:=ReadInteger('Количество столбцов в массиве:');
  Writeln('*** Исходный массив [',n,',',m,'] ***');
  var a:=MatrRandom(n,m,-99,99);
  a.Println(5); Writeln(5*a.ColCount*'-');
  Writeln('Сумма элементов массива: ',
      a.Rows.SelectMany(x->x).Sum)
end.

Пример
Количество строк в массиве: 6
Количество столбцов в массиве: 9
*** Исходный массив [6,9] ***
   39   99   51   44  -28  -85  -52  -98  -56
   68   41    3   34   54  -39  -72   15  -80
   47  -11   35  -50   65   70   58   52   -1
   38   82  -37   93   32   51  -82  -32   98
  -72  -12   59   87   44   -4  -14  -56   13
   44   72    1   63   48  -77    4  -28   73

Сумма элементов массива: 691