program ct;
uses crt;
var a,b,c:real;
begin clrscr;
write('Nhap do dai ba canh: '); readln(a,b,c);
if (a=b) or (b=c) or (c=d)
then writeln('Day la do dai ba canh cua tam giac can')
else writeln('Day khong la do dai ba canh cua tam giac can');
readln;
end.
Học tốt!