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

Program If19;

Var
  A, B, C, D: Real;

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

End.