Заполните массив из n элементов случайными числами в интервале [1,n] так, чтобы в массив обязательно вошли все числа от 1 до n. пример: массив: 3 2 1 4 5

//PascalABC.NET версия 3.4.2.1991 от 03.03.19

//Если программа не запускается, то обновите версию

const

   m = 99;

var

   n, s, d, i, j: integer;

   A, B: Array[1..m] of integer;

begin

   Randomize;

   write('n = ');

   readln(n);

   for i := 1 to n do

   begin

       repeat

           j := Random(n) + 1

       until A[j] = 0;

       A[j] := i;

   end;

   for i := 1 to n do

       write(A[i]:3);

   writeln;

end.