uses crt;
var a,b,c:integer;
begin
clrscr;
write('Nhap canh a: ');readln(a);
write('Nhap canh b: ');readln(b);
write('Nhap canh c: ');readln(c);
if (a+b>c) and (b+c>a) and(a+c>b)
then writeln('Day la ba canh tam giac') else writeln('Day khong phai ba canh tam giac');
readln
end.