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

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