Напишите программу, которая получает три числа и выводит количество одинаковых чисел в этой цепочке. входные данные входная строка содержит три целых числа, разделённых пробелами. выходные данные программа должна вывести количество одинаковых чисел из переданного ей набора или число 0, если все числа различные. примеры входные данные 1 2 1 выходные данные 2

запускаем одновременно часы в 8 минут и 3 минуты -  (8 и 3). после окончания 3-х минут переворачиваем их и продолжаем у нас будет (5 и 3). после окончания  вторых 3-х минут в восьмиминутных часах останется 2 минуты (2 и 3). снова запускаем 3-х минутные чесы вместе с оставшимися 2-х минутными. после окончания  2 минут в восьмиминутныхъ часах в 3-х минутных останется 1 минута (0 и 1). начиная с этой минуты запустив 2 раза трехминутные часы получаем искомые 7 минут. 

var

  i: integer;

  a: array[1..16]of integer;

begin

  for i: =1 to 16 do

begin

  a[i]: =random(40)-20;

  if a[i] mod 3=0 then write(i,' ');

end;

writeln;

end.