Program func7;
Uses crt;
Var x1,y1,x2,y2,x3,y3:integer;
S,p:real;
Function rast(a,b:integer):real;
Begin
Rast:=sqrt(sqr(x2-x1)+sqr(y2-y1));
End;
Begin
Writeln('введите координаты 1 точки x1 и  y1');
readln(x1,y1);
Writeln('введите координаты 2 точки x2 и  y2');
readln(x2,y2);
Writeln('введите координаты 3 точки x3 и  y3');
readln(x3,y3);
P:=(rast(x1,y1)+rast(x2,y2)+rast(x3,y3))/2;
S:=sqrt(p*(p-rast(x1,y1))*(p-rast(x2,y2))*(p-rast(x2,y2)));
Writeln('площадь=',s:4:2);
Readln;
End.