Помогите решить (Паскаль) Заданы три числа. Определить есть ли среди них хотя бы одна пара равных по величине.

var
a, b, c: integer;
begin
write('введите три числа: ');
readln(a, b, c);
if (a = b) or (a = c) or (b = c) then writeln('пары есть')
else writeln('пар нет');
end.