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

Формулы:с=кв.корень из (а^2+b^2)r=(a+b-c)/2R=c/2var   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: 6r =   1.39R =   3.61***значения округлены до 2 знаков после запятой