Untitled

program massiivid;

type massiiv_a=array[0..10] of integer;
type massiiv_b=array[0..10] of integer;
var a : massiiv_a;
var b : massiiv_b;
var i, j : integer;

begin
        randomize;
        for i:=1 to 10 do
        begin
                a[i]:=random(9)+1;
                writeln(a[i]);
        end;
        writeln;
        for i:=10 downto 1 do
        begin
                b[i]:=a[i];
                writeln(b[i]);
        end;
        writeln;
        for i:=10 downto 1 do
        begin

                writeln(a[i]);
        end;
        readln;
end.