Даны действительные положительные числа a, b, c, которые являются длинами сторон треугольника. Напишите программу позволяющую найти радиус вписанной и описанной окружности

vara,b,c,p,r1,r2:real;begin readln(a,b,c); p:=(a+b+c)/2; r1 := (a*b*c)/(4*sqrt(p*(p-a)*(p-b)*(p-c)));// описанная r2 := sqrt(((p-a)*(p-b)*(p-c))/p);//вписанная writeln(r1:1:5,' ',r2:1:5); readln; readlnend.