Составьте программный код для решения системы. найдите у для х=5​

var

y,x: real;

begin

writeln('введите значение x: ');

readln(x);

if x> 0 then

writeln('y = ',(2*sqr(x)*x-1.7)/(x+8))

else

if x=0 then

writeln('y = ',0)

else

if x< 0 then

writeln('y = ',1/7*x-4);

end.

Const   nn = 50; var   t: array[1..nn] of integer;   i, n, s: integer; begin   writeln('введите количество элементов в массиве (n< 51): ');   readln(n);   writeln('введите элементы массива');   s: =0;   for i : = 1 to n do   begin       read(t[i]);       if t[i]< 0 then s : = s + t[i]   end;   writeln('сумма отрицательных элементов массива равна ', s) end. тестовое решение: введите количество элементов в массиве (n< 51): 10 введите элементы массива 5 -6 2 0 4 11 -8 0 1 -2 сумма отрицательных элементов массива равна -16

Const   nm = 20;   nn = 20; var   a: array[1..nm, 1..nn] of integer;   b: array[1..nm] of integer;   i, j, m, n, mina: integer; begin   write('введите число строк и столбцов массива: '); readln(m,n);   randomize;   writeln('исходный массив');   for i : = 1 to m do   begin       for j : = 1 to n do       begin           a[i, j] : = random(101) - 50;           write(a[i, j]: 4)       end;       writeln   end;     for i: =1 to m do   begin       mina: =32767;       for j: =1 to n do if mina> a[i,j] then mina: =a[i,j];       b[i]: =mina   end;     writeln('сформированный массив');   for i: =1 to m do write(b[i]: 4);   writeln end. тестовое решение: введите число строк и столбцов массива: 6 5 исходный массив   46 -32  -6  20  36   -2 -41 -10 -42  26   -33  16 -25    9  46   -36  20 -50  36 -37   -41  16  34  -8    9   38 -36 -14 -18 -33 сформированный массив   -32 -42 -33 -50 -41 -36