program func8;
uses crt;
var a,b,c,d,r,S1,S2,S:real;
Function f(x,y,z:real):real;
var p:real;
begin
p:=(x+y+z)/2;
F:=Sqrt(p*(p-x)*(p-y)*(p-z));
end;
begin
Writeln('введите 4 стороны и диагональ четырехугольника');
readln (a,b,c,d,r);
S1:=f(a,b,r);
S2:=f(r,c,d);
s:=S1+S2;
writeln (S:4:2);
readln;
end.