Даны три целых числа. определите, сколько среди них . программа должна вывести одно из чисел: ■ 3 – если все ; ■ 2 – если два совпадает; ■ 0 – если все числа различны.

Var a,b,c:integer;
begin
readln(a,b,c);
if (a=b)and(b=c) then writeln(3)
 else if (a=b)or(b=c)or(a=c) then writeln(2)
  else writeln(0);
end.

Пример:
5 7 5
2