Chúc bạn học tốt mong bạn vote 5 sao cũng như cảm ơn và ctlhn
program tamgiac;
uses crt;
var a,b,c:integer;
begin clrscr;
writeln('nhap ba canh cua tam giac');
readln(a,b,c); if a+b>c and a+c>b and b+c>a then write(a,' ',b,' ',c 'la ba canh cua tam giac') else write(a,' ',b,' ',c 'khong la ba canh cua tam giac');
readln
end.