Составить блок схему к квадратной матрицы! .

Везде, начиная с того что даже f написана не верно вот рабочий код. формулы брались на вики, потому что в ваших я сомневаюсь весьма function f(x: real): real; begin       f : = sqr(sqr(x)) * x + 3 * sin(x) - 3 * sqr(x) - 12; end; function findroot(a, b, epsilon: real): real; begin       while(abs(b - a) > epsilon) do       begin               a : = b - (b - a) * f(b) / (f(b) - f(a));               b : = a + (a - b) * f(a) / (f(a) - f(b));               writeln(a, ' ', b);       end;             findroot : = b; end; begin       writeln('x = ', findroot(0.5, 1.5, 0.001)); end.

Var i: integer;       a: array[1..10] of integer; begin        write('исходный массив: ');         for i : = 1 to 10 do begin              a[i] : = random(20);               write(a[i]: 3);               if(a[i] < 10) then a[i] : = a[i] * 3;         end;         write(#10'конечный массив: ');         for i : = 1 to 10 do write(a[i]: 3); end.