Question

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

Answer 1

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