Площадь треугольника по 3-м его сторонам:

Var a,b,c, P: integer;

PP, S: real;

Begin

readln(a);

readln(b);

readln(c);

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

S := sqrt(PP*(PP-a)*(PP-b)*(PP-c));

writeln('Ответ(округлен до тысячных): ' + S:0:3);

end.