var a: array[1..10] of integer;
i, j: integer;
begin
writeln('Введите 10 элементов массива:');
for i := 1 to 10 do readln(a[i]);
i := 1;
while (i < 10) and (j < 11) do begin
j := i + 1;
while (j < 11) and (a[i] <> a[j]) do inc(j);
inc(i);
end;
if i < 11 then writeln('В массиве есть одинаковые элементы!')
else writeln('Все элементы массива различны!');
end.
