三角形内切圆的面积

题目描述：给出三角形三边的边长，求此三角形内切圆的面积。

输入：三个正实数a、b、c（满足三角形三边关系），表示三角形三边边长。

输出：三角形内切圆的面积，结果四舍五入到小数点后2位

输入样例： 3 4 5

输出样例： 3.14

程序：①②③④⑤

Program program1;

Var

     a,b,c,r,s,t:real;

begin

      read(a,b,c);

       s :=(  ①  )/2;

       t:=  ②  (s*(s-a)*(s-b)*(s-c));

       r:=t/s;

       writeln(3.1415927 * r *  ③   :0:  ④  ;

END.