Вычислите радиус RB вписанной и радиус RO описанной около треугольника окружности, если заданы стороны треугольника A, B, CRB=S/PRO=A*B*C/4Sгде S-площадь, P-полупериметр треугольника

var a,b,c,s,p,p1,RB,RO:real ;begin  readln(a); readln(b); readln(c); p1:=a+b+c; p:=p1/2; s:=sqrt(p1*(p1-a)*(p1-b)*(p1-c)); RB:=s/p; RO:=(a*b*c)/(4*s); writeln('радиус вписаной ',RB,' радиус описанной ',RO);end.