Составьте программу вычисления площади равностороннего треугольника, если сторона равна 8 см

Var a,s:real;beginreadln(a);s:=sqrt(sqr(a)-sqr(a/2))*0.5*a;writeln('S = ',s);end.