Одинаковые числа

Заданы три числа a, b и c. За один ход можно заменить любое из них на любое другое произвольное число. Какое минимальное количество действий надо сделать, чтобы получить набор из трех одинаковых чисел?

program b2;
 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.