Паскаль!! Даны координаты вершин треугольника АВС. Найти его площадь.
Данные для самопроверки результата:
Введите координату вершины А: 3 5
Введите координату вершины В: -2 1
Введите координату вершины С: 0 6
Площадь треугольника равна: 8.5

Program lol;

Var

 x : array[1..3] of real;

 y : array[1..3] of real;

 a,b,c,p,s : real;

begin

 write('Введите координаты точки А: ');

 readln(x[1],y[1]);

 write('Введите координаты точки B: ');

 readln(x[2],y[2]);

 write('Введите координаты точки C: ');

 readln(x[3],y[3]);

 a := sqrt((x[1]-x[2])**2 + (y[1]-y[2])**2);

 b := sqrt((x[1]-x[3])**2 + (y[1]-y[3])**2);

 c := sqrt((x[2]-x[3])**2 + (y[2]-y[3])**2);

 p := (a + b + c) / 2;

 s := sqrt(p * (p-a) * (p-b) * (p-c));

 writeln('Площадь тр-ка S = ', s);

end.

Результат: