// PascalABC.NET
begin
var a := ReadArrReal(4);
var k := a.Length - a.Distinct.Count;
if k = 0 then
Print('Все числа уникальны')
else
Print('Количество повторяющихся чисел равно', k)
end.
// PascalABC.NET
begin
var a := ReadArrReal(4);
var k := a.Length - a.Distinct.Count;
if k = 0 then
Print('Все числа уникальны')
else
Print('Количество повторяющихся чисел равно', k)
end.