написать блок схему для разветаляющейся функции

Const
  nm = 50;{максимальная длина массива}

var
  i, n: integer;
  a: array[1..nm] of integer;

begin
  Write('Введите количество элементов в массиве: ');
  Readln(n);
  Write('Введите элементы массива через пробел ');
  for i := 1 to n do
  begin
    Read(a[i]);
  end;
  i := n;
  while (a[i] <= 0) and (i > 0) do Dec(i);
  if i > 0 then Writeln('Последний положительный элемент a[', i, ']=', a[i])
end.

Тестовое решение:
Введите количество элементов в массиве: 5
Введите элементы массива через пробел 3 -3 5 -5 -4
Последний положительный элемент a[3]=5

Прежде всего - формулы. Пусть а - длина стороны, тогда


var
  a, r, rr, h, s: real;

begin
  Write('Введите длину стороны треугольника: ');Readln(a);
  r := sqrt(3) * a / 6;
  rr := 2 * r;
  h := 3 * r;
  s := a * h / 2;
  Writeln('Радиус вписанной окружности ', r);
  Writeln('Радиус описанной окружности ', rr);
  Writeln('Высота треугольника ', h);
  Writeln('Площадь треугольника ', s);
end.

Тестовое решение:
Введите длину стороны треугольника: 10
Радиус вписанной окружности 2.88675134594813
Радиус описанной окружности 5.77350269189626
Высота треугольника 8.66025403784439
Площадь треугольника 43.3012701892219