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

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