Входные данные
Сначала вводится n - количество чисел (n<=1000). Далее идут n чисел.
Выходные данные
Число - ответ на задачу.
Решение
var a:array[1..1000] of integer;
i,j,n:integer;
begin
readln(n); //ввод количества элементов
for i:=1 to n do //ввод элементов массива
read(a[i]);
i:=1;
while (i<10) and (j<n+1) do //подсчет количества различных элементов
begin
j:=i+1;
while (j<n+1) and (a[i]<>a[j]) do
j:=j+1;
i:=i+1;
end;
if i<11 then writeln('В массиве ',i,' одинаковых элементов')
else writeln('Все элементы массива различны');
end.