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

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