Сформировать одномерный массив из N элементов, где элемеи ты массива- целые случайные числа в пределах от 1 до 45. Напечатать элементы массива в прямом и обратном порядке.

{Для получения случайных чисел воспользуемся следующей функцией:
Функция Random [(x)]
Формирует случайное число от 0 до X целого или вещественного типа (перед обращением к функции ее целесообразно инициализировать, использовав процедуру Randomize).
X - параметр, указывающий диапазон значений случайного числа. Оно изменяется в пределах 0 до X. Результат в этом случае имеет тип Word (диапазон значений - 0...65535). Если параметр X не задан, результат будет типа Real в пределах 0.0 <Х< 1.0. Для получения массива целых случайных чисел из диапазона от [А,В] random(B-A+1)+A }

program prim 1;
  uses crt;
  var i, n:integer;
      a:array[1..10000] of integer;
begin
  clrscr;
  randomize;
  write(' размер =' );readln(n);
  for i:=1 to n do
    begin
{Получаем случайные числа в пределах от 1 до 45.}
      a[i]:=random(46))+1;
{Выводим элементы массива на экран.}
      write(a[i], ' ' );
    end;
{Полученный массив печатаем в обратном порядке.}
  for i:=n downto 1 do
    write(a[i],' ');
  readkey;
end.