Составить программу в Pascal ...

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.