Является ли треугольник a b c равнобедренным? только не по правилу паскаля

Var a, b, c: integer;
begin
readln(a, b, c);
if (a=b) and (c=b) then
writeln('Равнобедренный') else writeln('Неравнобедренный');
end.

Если ab = bc или ac он равнобедренный
правило: если две его стороны равны а третья не то он равнобедренный