Треугольник задан координатами своих вершин. Составить программу для вычисления его площади

uses crt;
var xa,ya,xb,yb,xc,yc: integer;          //целочисленные переменные для координат вершин
    ab,bc,ca,s: real;                    //переменные для длин сторон
 
function Dlina(x1,y1,x2,y2: integer):real;   //функция определеиния длины отрезка по координатам, входные параметры - координаты
begin
Dlina:= sqrt(sqr(y1-y2)+sqr(x1-x2));         //длина отрезка
end;
 
function IsExiste (a,b,c: real): boolean;   //функция логического типа, проверка на существование треугольника с заданными сторонами
begin
IsExiste:=((b+c-a)>0) and ((a+c-b)>0) and ((a+b-c)>0);
end;
 
function Square (a,b,c: real): real;         //функция определения площади треугольника, входные параметроы - длины строкон
begin
Square:=0.25*(sqrt((a+b+c)*(b+c-a)*(a+c-b)*(a+b-c)));
end;
 
begin
writeln ('Координаты вершины A ');           //запрашиваем и считываем координаты вершин
readln (xa,ya);
writeln ('Координаты вершины B ');
readln (xb,yb);
writeln ('Координаты вершины C ');
readln (xc,yc);
ab:=Dlina(xa,ya,xb,yb);                     //вычисляем длины сторон с помощью функции
bc:=Dlina(xb,yb,xc,yc);
ca:=Dlina(xc,yc,xa,ya);
if  IsExiste (ab,bc,ca)                     //проверяем возможность существования такого треугольника
then write ('Площадь треугольника = ',Square(ab,bc,ca):7:2)    //вычисляем алощадь с помощью функции//выводим
     else write('Треугольника с такими сторонами не существует');  //или выводим, что не существует
readkey
end.

program z;
var a,b,c,d,e,r,t,y,u,s,p:real;
begin
     writeln('Введите координаты (x;y) точки À');
     readln(a,b);
     writeln('Введите координаты (x;y) точки B');
     readln(c,d);
     writeln('Введите координаты (x;y) точки C');
     readln(e,r);
     t:=sqrt(sqr(a-c)+sqr(b-d));
     y:=sqrt(sqr(a-e)+sqr(b-r));
     u:=sqrt(sqr(c-e)+sqr(d-r));
     p:=(t+y+u)/2;
     s:=sqrt(p*(p-t)*(p-y)*(p-u));
     writeln('Площадь треугольника = ',s:5:2);
end.

uses crt;
var xa,ya,xb,yb,xc,yc,i: integer;
    x,y,z,sq: real;
 
procedure Dlina(x1,y1,x2,y2: integer; var d:real);
begin
d:= sqrt(sqr(y1-y2)+sqr(x1-x2));
end;
 
function Exist (a,b,c: real): boolean;
begin
Exist:=((b+c-a)>0) and ((a+c-b)>0) and ((a+b-c)>0);
end;
 
procedure Square (a,b,c: real; var s: real);
begin
s:=0.25*(sqrt((a+b+c)*(b+c-a)*(a+c-b)*(a+b-c)));
end;
 
begin
writeln ('Введите координаты 1 вершины треугольника');
readln (xa,ya);
writeln ('Введите координаты 2 вершины треугольника');
readln (xb,yb);
writeln ('Введите координаты 3 вершины треугольника');
readln (xc,yc);
Dlina(xa,ya,xb,yb,x);
Dlina(xb,yb,xc,yc,y);
Dlina(xc,yc,xa,ya,z);
if Exist (x,y,z) then
   begin
   Square (x,y,z,sq);
   writeln('Площадь треугольника=',sq:0:2)
   end else writeln('Вычисление площади треугольника невозможно');
end.

program z;
var a,b,c,d,e,r,t,y,u,s,p:real;
begin
     writeln('Введите координаты (x;y) точки А');
     readln(a,b);
     writeln('Введите координаты (x;y) точки B');
     readln(c,d);
     writeln('Введите координаты (x;y) точки C');
     readln(e,r);
     t:=sqrt(sqr(a-c)+sqr(b-d));
     y:=sqrt(sqr(a-e)+sqr(b-r));
     u:=sqrt(sqr(c-e)+sqr(d-r));
     p:=(t+y+u)/2;
     s:=sqrt(p*(p-t)*(p-y)*(p-u));
     writeln('Площадь треугольника = ',s:5:2);
end.

Program T_T;
uses crt;
var xa,ya,xb,yb,xc,yc,i: integer;
    x,y,z,sq: real;
 
procedure Dlina(x1,y1,x2,y2: integer; var d:real);
begin
d:= sqrt(sqr(y1-y2)+sqr(x1-x2));
end;
 
function Exist (a,b,c: real): boolean;
begin
Exist:=((b+c-a)>0) and ((a+c-b)>0) and ((a+b-c)>0);
end;
 
procedure Square (a,b,c: real; var s: real);
begin
s:=0.25*(sqrt((a+b+c)*(b+c-a)*(a+c-b)*(a+b-c)));
end;
 
begin
writeln ('Введите координаты 1 вершины треугольника');
readln (xa,ya);
writeln ('Введите координаты 2 вершины треугольника');
readln (xb,yb);
writeln ('Введите координаты 3 вершины треугольника');
readln (xc,yc);
Dlina(xa,ya,xb,yb,x);
Dlina(xb,yb,xc,yc,y);
Dlina(xc,yc,xa,ya,z);
if Exist (x,y,z) then
   begin
   Square (x,y,z,sq);
   writeln('Площадь треугольника=',sq:0:2)
   end else writeln('Вычисление площади треугольника невозможно');
end.