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
begin
if (a=b) and (b=c) then writeln('Day la tam giac deu')
else writeln('Day la tam giac khong deu');
end
else writeln('Day khong la ba canh trong mot tam giac');
readln;
end.