Загрузка данных


program Fireflies;

var
  k, l, m, n: LongInt; // Используем LongInt, так как числа до 10^9
  d: LongInt;          // Количество светлячков (по условию до 10^8)
  ans: Int64;          // Ответ может быть до 4, поэтому Int64 с запасом

// Вспомогательная функция: возвращает 1, если два числа равны, иначе 0
function Eq(a, b: LongInt): Int64;
begin
  if a = b then Eq := 1
  else Eq := 0;
end;

// Вспомогательная функция: возвращает 1, если три числа равны
function Eq3(a, b, c: LongInt): Int64;
begin
  if (a = b) and (b = c) then Eq3 := 1
  else Eq3 := 0;
end;

begin
  // Чтение входных данных
  ReadLn(k);
  ReadLn(l);
  ReadLn(m);
  ReadLn(n);
  ReadLn(d);

  // Формула включений-исключений
  // 1. Сумма мощностей каждого множества (каждому светлячку достался 1 подарок)
  ans := 1 + 1 + 1 + 1; 
  
  // 2. Вычитаем попарные пересечения
  ans := ans - Eq(k, l) - Eq(k, m) - Eq(k, n) 
             - Eq(l, m) - Eq(l, n) - Eq(m, n);
             
  // 3. Прибавляем пересечения по три
  ans := ans + Eq3(k, l, m) + Eq3(k, l, n) + Eq3(k, m, n) + Eq3(l, m, n);
  
  // 4. Вычитаем пересечение по четыре
  if (k = l) and (l = m) and (m = n) then
    ans := ans - 1;

  // Вывод результата
  WriteLn(ans);
end.