program kiemtra;
uses crt;
var a,b,c:integer;
begin
clrscr;
write('Nhap do dai canh thu nhat:'); readln(a);
write('Nhap do dai canh thu hai: '); readln(b);
write('Nhap do dai canh thu ba: '); readln(c);
if (a=b) or (b=c) or(a=c) then write('La ba canh cua tam giac can')
else write('Khong la ba canh cua tam giac can');
readln
end.