PROGRAM P04_8;
USES    CRT;
VAR     N, i, j, k, cont: integer;
BEGIN
        Write('Introduce un numero positivo impar: ');
        Read(N);
 
        FOR i := 1 TO N DO
                cont := 0;
                FOR j := 1 TO N DO
                        BEGIN
                                IF (j MOD 2 <> 0) AND (cont = 0) THEN
                                        BEGIN
                                                IF (i <> 1) THEN
                                                        BEGIN
                                                                k := ;   <------ k = Numero de espacios antes del numero, para la fila actual
                                                                REPEAT
                                                                        BEGIN
                                                                                Write(' ');
                                                                                k := k - 1;
                                                                        END;
                                                                UNTIL k = 0;
                                                        END;
                                                Write(N - i + 1);
                                                cont := cont + 1;
                                        END;
                                IF (cont <> 0) THEN Write(' ');
                        END;
 
READKEY;
END.