Вычислите радиус rb вписанной и радиус ro описанной около треугольника окружности, если заданы стороны треугольника a, b, c rb=s/p ro=a*b*c/4s где s-площадь, p-полупериметр треугольника

Var a,b,c,p,s,rb,ro: real;
begin
readln(a,b,c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
rb:=s/p;
ro:=a*b*c/(4*s);
writeln('rb = ',rb:6:2,' ro = ',ro:6:2);
end.

Пример:
4 4 4
rb = 1.15 ro = 2.31