даны три целых числа,одно из которых отлично от 2-ух иных,одинаковых меж

//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.