Guía 4 Ejercicio 16

program ej16;

var
    n, i, j: Word;
    s: Word;
    impar: Word;

begin
    // Generar números impares
    writeln('Ingrese valor de N:');
    readln(n);

    impar := 1;
    for i := 1 to n do
    begin
        s := 0;
        write(i, '^3 = ');
        for j := 1 to i do
        begin
            write(impar);
            if j < i then
                write(' + ');
            s := s + impar;
            impar := impar + 2;  // genero el siguiente número impar
        end;

        writeln(' = ', s);
    end;
end.