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.