uses crt;
var
procedure make;
var
begin
// Nhap
write('Canh 1:');readln(a);
write('Canh 2:');readln(b);
write('Canh 3:');readln(c);
// Kiem tra co phai tam giac can khong?
// Tam giac can la tam giac co hai canh bat ki bang nhau
if (a=b) or (a=c) or (b=c) then writeln('Day la tam giac can!!!')
else writeln('Day khong phai la tam giac can!!!')
end;
begin
clrscr;
make;
readln
end;
Mong ban ung ho minh nhe!!!