Jodode

var
    x, z: array [0..101, 0..101] of LongInt;
    i, j, n, m, tmp: LongInt;
begin
    ReadLn(n);

    for j := 1 to n do
        Read(x[1][j]);

    for i := 2 to n do begin
        x[i] := x[i - 1];
        tmp := x[i][n];
        for j := n - 1 downto 1  do
            x[i][j + 1] := x[i][j];
        x[i][1] := tmp;
    end;

    for i := 1 to n do begin
        for j := 1 to n do
            Write(x[i][j], ' ');
        WriteLn();
    end;
end.