program bacanhtamgiac;
uses crt;
var a,b,c:integer;
begin
write('nhap ba canh:'); readln(a,b,c);
if (a+b)>c and (a+c)>b and (b+c)>a then write('day la ba canh tam giac')
else write('day khong phai ba canh tam giac');
readln;
end.
uses crt;
var a,b,c:real;
begin
clrscr;
repeat
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
write('Nhap c='); readln(c);
until (a>0) and (b>0) and (c>0);
if (a+b>c) and (a+c>b) and (b+c>a) then writeln('Day la ba canh trong mot tam giac')
else writeln('Day khong la ba canh trong mot tam giac');
readln;
end.