program oken;
uses crt;
var a,b,c: qword;
begin
clrscr;
write('Nhap 3 do dai a,b,c: '); readln(a,b,c);
if (a+b>c) and (a+c>b) and(b+c>a) then
begin
writeln('3 canh a, b, c tao nen 1 tam giac');
if (a=b) and (b=c) and (a=c) then
writeln('Day la tam giac deu');
end
else
writeln('3 canh a, b, c khong tao nen 1 tam giac');
readln;
end.