Известны координаты вершин A, B, C треугольника. Напишите программу, вычисляющую площадь этого треугольника. Пример входных данных: xa=2 ya=1 xb=6 yb=5 xc=10 yc=1 Пример выходных данных: S=16.0

Program triangle;

var ax, bx, cx, ay, by, cy:integer;

begin

Writeln ('Введите координату А по Х');

Readln (ax);

Writeln ('Введите координату B по Х');

Readln (bx);

Writeln ('Введите координату C по Х');

Readln (cx);

Writeln ('Введите координату А по Y');

Readln (ay);

Writeln ('Введите координату B по Y');

Readln (by);

Writeln ('Введите координату C по Y');

Readln (cy);

Writeln ('Площадь треугольника равна ', 0.5 * ((ax-cx) * (by-cy) - (bx-cx) * (ay-cy)));

end.