дана сторона равностороннего треугольника.найти площадь треугольника паскаль

var a,s,h,r1,R:real;beginreadln(a);

необходимо отыскать только площадь треугольника?

да

Var
a: integer;
s: real;
begin
  readln(a);
  s:=(sqr(a)*sqrt(3))/4;
  writeln(s);
end.

Площадь равностороннего треугольника через его сторону определяется по знаменитой формуле:


// PascalABC.NET 3.0, сборка 1128
var
  a:real;
begin
  Write('Введите длину стороны треугольника: '); Read(a);
  Writeln('Площадь треугольника одинакова ',sqrt(3)/4*sqr(a):0:3)
end.

Тестовое решение:
Введите длину стороны треугольника: 3.18
Площадь треугольника одинакова 4.379