uses crt;
var a,b,c:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
if (a>0) and (b>0) and (c>0) then
begin
if (a+b>c) and (a+c>b) and (b+c>a) then
begin
if (a=b) and (b=c) then writeln('day la tam giac deu')
else writeln('day khong la tam giac deu');
end
else writeln('day khong la 3 canh trong mot tam giac');
end
else writeln('vui long nhap so lon hon 0');
readln;
end.