program ct;
uses crt;
var a,b,c:integer;
begin
    clrscr;
    writeln('Nhap a,b,c:'); readln(a,b,c);
    if (a+b>c) or (a+c>b) or (b+c>a) then
        writeln('a,b,c deu la do dai 3 canh cua mot tam giac')
    else
        writeln('a,b,c khong la do dai 3 canh cua mot tam giac');
    readln;
end.

______________________

#Duahauvn

var a,b,c: integer;
begin
read(a,b,c);
if (a+b>c) or (a+c>b) or (b+c>a) then
write('a,b,c  la do dai ba canh cua mot tam giac')
else write('a,b,c khong la do dai 3 canh cua mot tam giac');
end.

Chúc bạn học tốt !