You are given real positive numbers a, b, c, which are the lengths of the sides of the triangle.

You are given real positive numbers a, b, c, which are the lengths of the sides of the triangle. Write a program that allows you to find the radius of the inscribed and circumscribed circles.

program zz1;

var a, b, c, p: real; // set variables of non-integer type

begin

write (‘enter the first side of the triangle’);

read (a);

write (‘enter the second side of the triangle’);

read (b);

write (‘enter the third side of the triangle’);

read (c);

If a <b + c Then

If b <a + c Then

If c <a + b Then

begin

p: = (a + b + c) / 2;

Writeln (‘Inscribed circle radius =’, Sqrt (((p-a) * (p-b) * (p-c)) / p): 2: 2);

Writeln (‘Radius of the circumcircle =’, (a * b * c) / (4 * Sqrt ((p * (p-a) * (p-b) * (p-c)))): 2: 2);

end

Else Writeln (‘The triangle does not exist’);

END.