Программа в 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))

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.