begin
    integer i, j;
    outtext( "    " );
    for i := 1 step 1 until 12 do outint( i, 4 );
    outimage;
    outtext( "   +" );
    for i := 1 step 1 until 12 do outtext( "----" );
    outimage;
    for i := 1 step 1 until 12 do
    begin
        outint( i, 3 );
        outtext( "|" );
        for j := 1 step 1 until i - 1 do outtext( "    " );
        for j := i step 1 until 12 do outint( i * j, 4 );
        outimage
    end;
end