number_1

program var_8;
var a: array [1..10] of integer;
    i, j, t: integer;
begin
    randomize;
    for i := 1 to 10 do
    begin
      a[i] := random(10) + 1;
      write(a[i]:3);
    end;
    writeln;
    for i := 1 to 2 do
    begin
      t := a[10];
      for j := 10 - 1 downto 1 do a[j + 1] := a[j];
      a[1] := t
    end;
    for i := 1 to 10 do write(a[i]:3);
end.