Составить программу в 1.площадь треугольника по 3-м его сторонам: var a,b,c, p: integer; pp, s: real; begin (дальше)

Площадь треугольника по 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.