Является ли треугольник равнобедренным? Даны три числа-стороны треугольника. Написать программу на языке Паскаль

Program treug;

var

a, b, c:integer;

begin

writeln ('Введите длину стороны a'); {Вывод на экран сообщения}

readln (a); {Считывание числа а}

writeln ('Введите длину стороны b'); {Вывод на экран сообщения}

readln (b); {Считывание числа b}

writeln ('Введите длину стороны c'); {Вывод на экран сообщения}

readln (c); {Считывание числа c}

if (a=b) or (a=c) or (b=c) then writeln ('Треугольник равнобедренный') {Если условие выполняется - вывести сообщение}

else writeln ('Треугольник не равнобедренный');

end.