даны три целых числа,одно из которых отлично от двух других,равных между собой. определить порядковый номер числа,отличного от остальных.

//PascalABC.NETvara,b,c:integer;beginwrite('Введите три целых числа через пробел: ');readln(a,b,c);if b=c then writeln('Порядковый номер числа отличающегося от других: 1');if a=c then writeln('Порядковый номер числа отличающегося от других: 2');if a=b then writeln('Порядковый номер числа отличающегося от других: 3');end.