Заданы длины сторон треугольника ,определить, является ли этот треугольник равнобедренным. Pascal

Предыдущий
вопрос Следующий
вопрос

program Triangle;

var
a, b, c: integer;

begin
writeln('Enter the lengths of the sides of the triangle:');
readln(a, b, c);

if (a = b) and (b <> c) then
writeln('The triangle is isosceles')
else if (a = c) and (c <> b) then
writeln('The triangle is isosceles')
else if (b = c) and (c <> a) then
writeln('The triangle is isosceles')
else
writeln('The triangle is not isosceles');
end.