{ все ли элементы массива различны? }
var a:array[1..10] of integer;
    i,j:integer;
begin
     writeln('введите 10 элементов массива');
     for i:=1 to 10 do readln( a[i] );
     for i:=1 to 10 do begin
        for j:=i+1 to 10 do begin
           if a[i]=a[j] then begin
             writeln('в массиве есть одинаковые элементы');
             halt;
           end;
        end;
     end;
     writeln('все элементы массива различны');
end.