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

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