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

 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.