Написать программу вычисления площади произвольного шестиугольника

Question

Написать программу вычисления площади произвольного шестиугольника

Answer 1

Var
  a: integer;
Begin
  WriteLn('S = 3√3a² / 2');
  Write('Длина стороны(a) = ');ReadLn(a);
  WriteLn('Площадь(S) = ', 3*Sqrt(3)*a*a/2);
End.

Comments

Можете написать, пожалуйста?