Сложные условия ВЕТВЛЕНИЯ ПАСКАЛЬ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!Напишите программу, которая получает три числа и выводит количество одинаковых чисел в этой цепочке.Пример:Введите три числа:5 5 5Все числа одинаковые.Пример:Введите три числа:5 7 5Два числа одинаковые.Пример:Введите три числа:5 7 8Нет одинаковых чисел.

begin
  case ReadSeqInteger('Введите три целых числа:',3).Distinct.Count of
  3:Writeln('Нет одинаковых чисел');
  2:Writeln('Два числа одинаковые');
  else Writeln('Все числа одинаковые')
  end
end.


Введите три целых числа: 5 5 5
Все числа одинаковые

Введите три целых числа: 5 7 5
Два числа одинаковые

Введите три целых числа: 5 7 8
Нет одинаковых чисел