Составить блок схему алгоритма и программу вычисления площади равностороннего треугольника.

var a,s: real;begin  write('длина стороны:  ');  readln(a);  s:=a*a*sin(pi/3)/2;  writeln('площадь треугольника = ',s:6:4);end.