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.