Даны координаты трех вершин треугольника. Найти его площадь. Пример. Для вершин (0.0) ; (0,1) ; (1,0) площадь - 0,5.

Uses crt;

var p, a, b, c, xa, xb, xc, ya, yb, yc, ab, ac, bc, xab, yab, xbc, ybc, xac, yac:real;

s:real;

begin

writeln ('Введите х координаты вершин а и b') ;

readln (xa, xb) ;

writeln ('Введите y координаты вершин а и b') ;

readln (ya, yb) ;

xab:=xb-xa;

yab:=yb-ya;

ab:=sqrt (xab*xab+yab*yab) ;

writeln ('Введите х координаты вершин а и с') ;

readln (xa, xc) ;

writeln ('Введите y координаты вершин а и c') ;

readln (ya, yc) ;

xac:=xc-xa;

yac:=yc-ya;

ac:=sqrt (xac*xac+yac*yac) ;

writeln ('Введите х координаты вершин b и с') ;

readln (xb, xc) ;

writeln ('Введите y координаты вершин b и c') ;

readln (yb, yc) ;

xbc:=xc-xb;

yab:=yc-yb;

bc:=sqrt (xbc*xbc+ybc*ybc) ;

p: = (ab+bc+ac) / 2;

s:=sqrt (p * (p-ab) * (p-bc) * (p-ac)) ;

writeln (s) ;

end.