Задачка для крутых прогеров(Pascal ABC)

uses crt; const N = 255; //тут можно менять количество элементов в массиве var a: Array[1..N] of Integer; i: Integer; begin Randomize; for i := 1 to N do a[i] := Random(N); //выводим массив как есть for i := 1 to N do write(i + ' '); //выводим массив в обратном порядке for i := N downto 1 do writeln(a[i]); readln; end.