"составить алгоритм для нахождения медианы равностороннего треугольника, если известна его сторона" заранее !

Var
  a, med :real;

begin

  readln(a);
  med:= sqrt(sqr(a) - sqr(a/2));
  writeln(med);

end.