var ax,ay,bx,by,cx,cy,a,b,c : real;
begin
writeln('nhap toa do A', ax,ay);
writeln('nhap toa do B',bx,by);
writeln('nhap toa do C',cx,cy);
c:=sqrt(sqr(ax-bx) + sqr(ay-by));
b:=sqrt(sqr(ax-cx)+sqr(ay-cy));
a:=sqrt(sqr(bx-cx)+sqr(by-cy));
if (a+b>c) and (a+c>b) and (b+c>a) then write('Ba diem A,B,C tao thanh tam giac) else ('Ba dinh A,B,C khong tao thanh tam giac);
readln
end.
Giải thích : Sử dụng tọa độ để tính độ dài AB = c, AC = b, BC=a
Nếu tổng của 2 trong 3 số a,b,c lớn hơn số còn lại thì ta được tam giác, nếu không thì không tạo thành ta giác