даны стороны треугольника а, b, c. является ли он равнобедренный? нужно ввести программу, паскаль. спасибо. ​

var a, b, c: integer;

begin

write('Input a: ');

readln(a);

write('Input b: ');

readln(b);

write('Input c: ');

readln(c);

if (a = b) or (b = c) or (a = c) then

writeln('Ravnobedreniy')

else

writeln('NE ravnobedreniy');

end.