ПОМОГИТЕ НАПИСАТЬ ПРОГРАММУ НА ЯЗЫКЕ ПАСКАЛЬ Уровень A. Заполнить массив случайными числами и выполнить циклический сдвиг элементов массива вправо на 1 элемент. Пример: Массив: 1 2 3 4 5 6 Результат: 6 1 2 3 4 5

var a: array [1..6] of integer; i,n,k:integer;   begin      writeln('Массив:');      for i:=1 to 6 do      begin        a[i]:= random(15)+2;        write(a[i],' ');      end;      writeln;      n:=6;         k:=a[1];         for i:=1 to n-1 do          begin          a[i]:=a[i+1];          end;            a[n]:=k;         writeln('Результат:');         for i:=1 to n do         write(a[i],' ');  end.