B2

B2
-------------------------
Легко заметить, что минимум действий 0 и максимум 2.
И всего 3 комбинации:  если 2 числа равны, если 3 числа равны, если 0 чисел равны.
самое главное-это порядок условий. Сначала проверяем равны ли 2, потом равны ли 3 а затем уже на неравенство
------------------------
 var a, b, c, x, f:longint;
  begin
      read(a,b,c);
   if (a=b)or (a=c) or (b=c) then x:=1;
   if (a=b) and (a=c) then x:=0;
   if (not(a=b)) and (not(a=c)) and (not(b=c)) then x:=2;
   writeln(x);
  end.
---------