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

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

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