Ответ:

1)

program Triangle;

var a, b, c:integer;

var p, s: double;

begin

   Readln(a);

   Readln(b);

   Readln(c);

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

   s := sqrt(p*(p-a)*(p-b)*(p-c));

   Writeln(s:4:2);

end.