Дана сторона равностороннего треугольника. Найти площадь этого треугольника и радиусы вписанной и описанной окружностей — Pascal(Паскаль)

Program MyFun;
uses crt;
var d:real;
     s,r,Rd:real;
 
Function Ploshad(dd:real):real;
Begin
Ploshad:=1/2*dd*dd*sin(Pi/3); {Tак как треугольник составляет половину паралелограмма}
end;
 
Begin
Clrscr;
Write(' Введите длинну стороны треугольника ');
Readln(d);
s:=Ploshad(d);
Writeln(' Площадь треугольника = ',s:3:3);
r:=d/(2*Sqrt(3));
Writeln(' Радиус вписаной окружности равен ',r:3:3);
Rd:=2*r;
Writeln(' Радиус описаной окружности равен ',Rd:3:3);
Readln;
End.