Заданы длины катетов прямоугольного треугольника. составьте программу,с помощью которой определите радиус вписанной и радиус описанной окружности.

Формулы: с=кв.корень из (а^2+b^2) r=(a+b-c)/2 R=c/2 var   a,b,c,r1,r2: real; begin   write ('введите катет а: ');   readln (a);   write ('введите катет b: ');   readln (b);   c:=sqrt(a*a+b*b);   r1:=(a+b-c)/2; //радиус вписанной окружности   r2:=c/2; //радиус описанной окружности   writeln;   writeln ('r = ',r1:6:2);   writeln ('R = ',r2:6:2); end. ------------------------------------------------------------------- Пример: введите катет а: 4 введите катет b: 6 r =   1.39 R =   3.61 ***значения округлены до 2 знаков после запятой