uses crt;
var a,b,c:integer;
begin
clrscr;
readln(a);
readln(b);
readln(c);
if (a+b>c) and (a+c>b) and (b+c>a) then write(a,',',b,',',c,' la 3 canh cua tam giac') else write(a,',',b,',',c,' khong la 3 canh cua tam giac');
readln;
end.
mk làm hơi dài ở phần write nếu k thik thì bạn có thể rút gọn nhé