Вопрос пользователя:
Даны три целых числа,одно из которых отлично от двух других равных между собой. Определить порядковый номер числа,отличного от остальных
Илюха отвечает:
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.