program s;
var a,b,c:integer;
begin
        readln(a,b,c);
        if ((a=b) and (a<>c)) or ((b=c) and (b<>a)) or ((a=c) and (a<>b)) then writeln( 'tam giac can') else
        if (a=b=c) then writeln('tam giac deu') else
        if((a*a+b*b=c*c) or (a*a+c*c=b*b) or (b*b+c*c=a*a)) then writeln('Tam giac vuong') else
        writeln('do la tam giac thuong');
        readln;
end.

.

chương trình của bạn báo lỗi là do chương trình không thể so sánh 3 giá trị cùng lúc (phần mình n đậm ở trên), bạn có thể sửa lại như phần mình in đậm ở dưới, chương trịnh sẽ hiểu là 3 giá trị đó  nhau

.

program s;
var a,b,c:integer;
begin
readln(a,b,c);
if ((a=b) and (a<>c)) or ((b=c) and (b<>a)) or ((a=c) and (a<>b)) then writeln( 'tam giac can') else
if (a=b) and (b=c) then writeln('tam giac deu') else
if((a*a+b*b=c*c) or (a*a+c*c=b*b) or (b*b+c*c=a*a)) then writeln('Tam giac vuong') else
writeln('do la tam giac thuong');
readln;
end.