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

Var a, b, c, d: integer;
begin
     readln(a, b, c, d);
     if (a <> b) then
        if (a <> c) then writeln(1) else writeln(2)
           else if (c <> a) then writeln(3) 
                  else writeln(4);
end.

Вот так-то)