program massiv_perevertish;
  const n=10;
  var a,b:array [1..n] of word;
      x:word;
begin
  writeln ('Массив b');
  for x:=1 to n do begin
   b[x]:=random(100);
   write(b[x]:4);
  end;
  for x:=1 to n do 
   a[x]:=b[n+1-x];
  writeln;
  writeln ('Массив a');
  for x:=1 to n do
   write (a[x]:4);
end.