Нужно написать блок-схему: дана сторона равностороннего треугольника. найти площадь этого треугольника, его высоты, радиусы вписанной и описанной окружностей.

Const     n = 4;     m = 6; var     a: array[1..n,1..m] of integer;     b: array[1..n] of integer;     i,j,k: integer;     c: real; begin writeln('введите массив: '); for i: = 1 to n do       for j: = 1 to m do               read(a[i,j]); writeln; write('введите число: '); readln(c); for i: = 1 to n do       begin       k: =0;       for j: = 1 to m do               if c< a[i,j] then k: =k+1;       b[i]: =k;       end; writeln; for i: = 1 to n do       write(b[i],' ') end. пример: введите массив: 4 6 2 6 -6 -6 5 2 7 -3 6 -3 -2 -8 -1 3 4 1 -8 -5 -4 10 -5 6 введите число: 4 2 3 0 2

A  b  d 7  4  6 7  5  5 7  6  4 8  2  7 8  3  6 8  4  5 8  5  4 8  6  3 8  7  2 9  1  7 9  2  6 9  3  5 9  4  4 9  5  3 9  6  2 9  7  1 10  1  6 10  2  5 10  3  4 10  4  3 10  5  2 10  6  1 11  1  5 11  2  4 11  3  3 11  4  2 11  5  1 12  1  4 12  2  3 12  3  2 12  4  1 13  1  3 13  2  2 13  3  1 14  1  2 14  2  1 15  1  1 ответ 37