Помогите пожалуйста! В паскале.Составьте блок-схему алгоритма и программу вычисления...

Question

Помогите пожалуйста! В паскале.
Составьте блок-схему
алгоритма и программу вычисления периметра, медианы и площади
равностороннего треугольника.

Answer 1

Var
  a, P, m, S: real;

begin
  write('Введите длину сторону треугольника: ');
  readln(a);
  m := a / 2 * sqrt(3);
  P := 3 * a;
  S := sqr(a) / 4 * sqrt(3);
  writeln('Медиана ', m:0:4, ', периметр ', P:0:4, ', площадь ', S:0:4)
end.

Тестовое решение:

Введите длину сторону треугольника: 5.34
Медиана 4.6246, периметр 16.0200, площадь 12.3476