Проверить истинность высказывания: «Треугольник со сторонами a, b, c является равнобедренным»

Даны целые числа a, b, c, являющиеся сторонами некоторого треугольника.

Program Boolean31;
Var
a,b,c:Integer;
Begin
ReadLn(a,b,c);
WriteLn((a = b) Or (b = c) Or (c = b));
end.

автор: Sklyarov Sergej a.k.a. S9