program raf105;

var a:array[1..100] of integer;

i,n:integer;

begin

write('Введите количество элементов в массиве: ');

readln(n);

for i:=1 to n do

begin

 a[i]:= random(1,9);

 write(a[i],' ');

end;

writeln;

for i:=n downto 1 do

 write(a[i],' ');

end.

Язык PascalABC