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

В упрощенном варианте строки от комментария \"начало условий\" до \"конец условий\" можно удалить. 

program number_1_2_3; var a, b, c, n: integer; begin writeln(\'Введите три числа, два из которых должны быть одинаковы\'); readln(a, b, c); if (a=b) and (b = c) then // начало условий begin writeln(\'Только два числа должны быть одинаковы. Введите три числа\'); readln(a, b, c);end; if (a<>b) and (b<>c) thenbegin writeln(\'Два числа должны быть одинаковы. Введите три числа\'); readln(a, b, c);end; // конец условий if a = b then n:= 3 else if a = c then n:= 2 else n:= 1; writeln(\'Порядковый номер числа,отличного от других: \', n) end.