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

Question

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

Answer 1

var a,b,c:integer;

Begin

  read(a,b,c);

  if b=с then writeln(1);

  if a=с then writeln(2);

  if b=a then writeln(3);

End.