Задана сторона равностороннего треугольника и квадрата . Оставьте программу, с которой определите , что больше площадь треугольника или площадь квадрата​

var

a,b,p:real;

begin

read(a,b);

p:=3*a/2;

if sqrt(p*(p-a)*sqr(p-a))>sqr(b) then

write('Площадь треугольника больше',)

else

if sqrt(p*(p-a)*sqr(p-a))<sqr(b) then

write('Площадь треугольника меньше',)

else

write('Площади равны(что маловероятно)')

end.