Diện tích tam giác phẳng

Cho toạ độ 3 điểm A, B, C trong mặt phẳng. Hãy tính diện tích tam giác tạo bởi 3 điểm đó. Thông báo các trường hợp 3 điểm đó không tạo thành một tam giác.
                                              Giải
var
       a,b,c,x1,x2,x3,y1,y2,y3,p,s: Real;
BEGIN
       Write('Nhap toa do x1, y1: '); Readln(x1,y1);
       Write('Nhap toa do x2, y2: '); Readln(x2,y2);
       Write('Nhap toa do x3, y3: '); Readln(x3,y3);
       a:=sqrt(sqr(x2-x3)+sqr(y2-y3));
       b:=sqrt(sqr(x1-x3)+sqr(y1-y3));
       c:=sqrt(sqr(x1-x2)+sqr(y1-y2));
       If ((a + b) > c) Or ((a + c) > b) Or ((b + c) > a) Then
           Begin
               p:=((a+b+c)/2);
               s:=sqrt(p*(p-a)*(p-b)*(p-c));
               Writeln('Dien tich tam giac ABC la: ',s);
           End
       Else
           Writeln('Ba diem khong tao thanh mot tam giac');
       Readln;
END.