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

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

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