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

Question

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

Answer 1

 var a:real;  
function s(a:real):real;
begin
  s:=a*a*sqrt(3)/4;
end;  
begin
 write('A -> ');
 readln(a);  
writeln('S=',6*s(a):0:5);  
readln;
end.