program test;

var b:array[1..10] of integer;
a: array[1..10] of integer;
c,i:integer;

begin
for i:=1 to 10 do b[i]:=random(200);

c:=11;
for i:=1 to 10 do begin
c:=c-1;
a[c]:=b[i];
end;

end.