Паскаль Даны координаты вершин треугольника АВС. Найти его площадь. Данные для самопроверки результата:Введите координату вершины А: 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.

Результат: