Язык паскаль. Напишите программу вычисления площади равностороннего треугольника. Заранее спасибо.

var b,a,p,s:real;beginWriteln('Введите длинну основания и длинну боковой стороны равнобедренного треугольника через пробел');readln(a,b);p:=(a+b*2)/2;s:=sqrt(p*(p-a)*sqr(p-b));writeln(s:4:1, ' см. квадратных');end.