program UniqueNumbers;

var
arr: array[1..10] of integer;
i, j, count: integer;
isUnique: boolean;

begin
// Ввод элементов массива
writeln('Введите элементы массива:');
for i := 1 to 10 do
readln(arr[i]);

// Сортировка массива
for i := 1 to 9 do
for j := i + 1 to 10 do
if arr[i] > arr[j] then
begin
arr[i] := arr[i] + arr[j];
arr[j] := arr[i] - arr[j];
arr[i] := arr[i] - arr[j];
end;

// Поиск уникальных чисел
count := 1;
for i := 2 to 10 do
begin
isUnique := true;
for j := 1 to i - 1 do
begin
if arr[i] = arr[j] then
begin
isUnique := false;
break;
end;
end;

end;

writeln('Количество различных чисел в массиве: ', count);
end.