Составить программу вычисления площади треугольника по любой из трех формул. S=a*h/2; S=1/2*a*b*sin C; S=sqr(p(p-a)*(p-b)*(p-c));

var S,p,a,b,c:real;

begin

read(a,b,c,p);

S:=sqr(p(p-a)*(p-b)*(p-c));

write(S);

end.

var S,p,a,b,c:real; begin

read(a,b,c,p);

S:=sqr(p(p-a)*(p-b)*(p-c));

write(S); end