Question

программа в freepfscal нахождение площади треугольника, половина есть, что дальше?
program dana;
uses SRT
var a, b, c, P, S: real
begin
p:=(a+b+c)/2
S:=sqrt(p*(p-a)*(p-b)*(p-c))
помогите пожалуйста

Answer 1

var a, b, c, P, S: real;
begin
readln(a);
readln(b);
readln(c);
p:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln(s);
end.