МНОГО БАЛЛОВ!!Напишите программу на Паскале пожалуйста.Заполните одномерный массив с помощью датчика случайных чисел таким образом,чтобы все его элементы были различны(не используйте пожалуйста логарифмы и тд максимально простое оформление)

Можно так (элементы будут всегда упорядочены по возрастанию):const n=10;var a:array[1..n] of integer;i:integer;beginRandomize;for i:=1 to n do  begin a[i]:=i*50+random(50); write(a[i],' '); end;writeln;end.Пример:67 147 173 227 294 318 356 426 497 542