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.