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

Program If18;

Var
  A, B, C: Real;

Begin
  WriteLn('Введите числa A,B и C: ');
  ReadLn(A, B, C);
  If (C = B) Then
    WriteLn('Номер числа, отличного от остальных: ', 1)
  Else If (A = C) Then
    WriteLn('Номер числа, отличного от остальных: ', 2)
  Else
    WriteLn('Номер числа, отличного от остальных: ', 3);

End.