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

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

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 (ab) and (bc) then

begin

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.