uses crt;
var a,b,c:real;
begin
clrscr;
readln(a,b,c);
if (a=b) or (b=c) or (c=a) then
writeln('Tam giac can')
else writeln('Khong phai la tam giac can);
readln;
end.

var a,b,c :integer;
begin
write('nhap 3 canh cua tam giac');read(a,b,c);writeln;
if (a=b) or (b=c) or (c=a) then
write('Tam giac can')
else writeln('Khong phai la tam giac can);
readln;
end.