viết chương trình nhập tọa độ A, B, C và kiểm tra xem A, B, C có lập thành một tam giác hay ko

var a,b,c: longint;

begin

write('Nhap chieu dai 3 canh tam giac:'); readln (a,b,c);

if (a>=b+c) or (b>=c+a) or (c>=a+b) then write('ba canh tren khong phai cua mot tam giac') else write('Day la ba canh cua tam giac');

Readln;

End.

var ax,bx,cx,ay,by,cy,s:real;

begin

write('Nhap toa do diem 1: '); readln(ax,ay);

write('Nhap toa do diem 2: '); readln(bx,by);

write('Nhap toa do diem 3: '); readln(cx,cy);

s:=((bx - ax)*(cy-ay)-(cx-ax)*(by-ay))/2;

if s=0 then write('Ba diem A,B,C khong lap thanh mot tam giac')

else write('Ba diem A,B,C lap thanh mot tam giac');

readln;

end.