uses crt;
var xa,ya,xb,yb,xc,yc,a,b,c:real;
begin
    clrscr;
    readln(xa,ya,xb,yb,xc,yc);
    a:=sqrt(sqr(xa-xb)+sqr(ya-yb));
    b:=sqrt(sqr(xb-xc)+sqr(yb-yc));
    c:=sqrt(sqr(xa-xc)+sqr(ya-yc));
    if (a+b>c) and (a+c>b) and (b+c>a) then writeln('Co')
       else writeln('Khong');
readln;
end.

Hướng giải:

Kiểm tra có tạo thành tam giác hay không là phải kiểm tra độ dài.

Từ các tọa độ thì ta có thể tính ra được độ dài của các cạnh.

Bài giải:

program bai_giai;
uses crt;
var xa,ya,xb,yb,xc,yc:integer;
    c1,c2,c3:real;
begin
    clrscr;
    write('Nhap xa: ');  readln(xa);
    write('Nhap ya: ');  readln(ya);
    write('Nhap xb: ');  readln(xb);
    write('Nhap yb: ');  readln(yb);
    write('Nhap xc: ');  readln(xc);
    write('Nhap yc: ');  readln(yc);
    c1:=sqrt(sqr(xa-xb)+sqr(ya-yb));
    c2:=sqrt(sqr(xb-xc)+sqr(yb-yc));
    c3:=sqrt(sqr(xc-xa)+sqr(yc-ya));
    if (c1+c2<=c3) or (c2+c3<=c1) or (c3+c1<=c2) then write('KHONG')
        else write('CO');
    readln;
end.