Дана сторона а(ввести с клавиатуры) равностороннего треугольника .найти радиусы вписанной и описанной окрудностей r=a/2*корень из3 r2=a/корень из3

Var
a,r1,r2:real;
begin
readln(a);
r1:=a/2*sqrt(3);
r2:=a/sqrt(3);
writeln('радиус вписанной ',r1:0:4,' радиус описанной ',r2:0:4);
end.