`* Pascal:`

`" "`

program imprimer_des_numeros;
uses crt;
var indi, vari, comp : integer;

begin
    clrscr;
    
    for indi := 1 to 15 do  
        if indi mod 2 = 1 then
            write(indi : 3);
            
    for vari := 2 to 14 do
    begin
        if vari mod 2 = 0 then
        begin
            writeln;
            comp := 0;
        
            for indi := vari downto 2 do
                if indi mod 2 = 0 then
                begin
                    write(indi : 3);
                    comp := comp + 1;
                end;
                
            for indi := 1 to (8 - comp) * 2 do
                if indi mod 2 <> 0 then
                    write(indi : 3);
        end;
    end;
    
    readln               
end.

uses crt;
var i,j: byte;
    a: array[1..8] of byte = (1,3,5,7,9,11,13,15);
procedure swap(i,j: byte);
var tg: byte;
begin
    tg := a[i];
    a[i] := a[j];
    a[j] := tg;
    exit;
end;
begin
    for i := 1 to 8 do
    begin
        for j := 1 to 8 do write(a[j]:4);
        for j := 2 to 8 do swap(1, j);
        a[1] := 2*i;
        writeln();
    end;
end.