Найдите площадь равностороннего треугольника(длины сторон вводятся с клавиатуры)
Помогите!!!!

Соре, прямоугольника прочитал

В паскалеvar a,b:integer;begin readln(a,b); writeln(a*b);end.

var s,a:real;beginwriteln('vvedite storonu treugolnika');readln(a);s:=(sqrt(a)/4)*sqr(a);writeln('S = ' , s);readln;end.