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

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