Прошу помощи в решении задачи на языке Free Pascal

[Refenement]

Здравствуйте!
Помогите решить пожалуйста задачу на языке Free Pascal.
Вот она - на плоскости заданы три точки. Вычислить площадь треугольника, вершинами которого являются эти точки. Проверить, что эти точки лежат не на одной прямой (если точки лежат на одной прямой, то площадь треугольника равна 0).
Координаты точек брать любые!
Буду рада любому предположению по решению этой задачи!

[Refenement]

program lab;
var
xa,ya,xb,yb,xc,yc,s:real;
begin
s:=0;
writeln('Введите координаты точек A[x,y], B[x,y], C[x,y]');
read(xa,ya,xb,yb,xc,yc);
s:=(abs((xb-xa)*(yc-ya)-(xc-xa)*(yb-ya)))/2;
writeln('Площадь= ',s);
end.
А может быть такое решение?

[alex_fcsm]

Сообщение от Refenement

program lab;
var
xa,ya,xb,yb,xc,yc,s:real;
begin
s:=0;
writeln('Введите координаты точек A[x,y], B[x,y], C[x,y]');
read(xa,ya,xb,yb,xc,yc);
s:=(abs((xb-xa)*(yc-ya)-(xc-xa)*(yb-ya)))/2;
writeln('Площадь= ',s);
end.
А может быть такое решение?

Найдите длины сторон АВ АС и ВС а потом по формуле Герона

[Refenement]

Я вас не поня ла. Возможно ли такое решение?Если нет, то не могли бы вы написать другое!

[alex_fcsm]

То что Вы написали это неверно. Расстояние между двумя точками
d:=sqrt(sqr(x1-x2)+sqr(y1-y2));

[Refenement]

а не могли бы вы тогда написать полностью программу для решения этой задачи

[alex_fcsm]

program lab;
var
xa,ya,xb,yb,xc,yc,s,ab,bc,ac:real;
begin
s:=0;
writeln('Введите координаты точек A[x,y], B[x,y], C[x,y]');
read(xa,ya,xb,yb,xc,yc);
ab:=sqrt(sqr(xa-xb)+sqr(ya-yb));
bc:=sqrt(sqr(xb-xc)+sqr(yb-yc));
ac:=sqrt(sqr(xa-xc)+sqr(ya-yc));
s:=(ab+ac+bc)/2;
s:=sqrt(s*(s-ac)*(s-ab)*(s-bc));
writeln('Площадь= ',s:10:4);
end.

[Refenement]

Спасибо вам большое! Я вам очень благодарна!!!!!