Escribe los primeros múltiplos de 3 que sean menores que 100.
Usamos un bucle For Next.

multiplo = 0;
suma = 0;
lista = {};
For[i=1,
       multiplo = 3*i;
       suma = suma + multiplo;
       multiplo≤100,
       ++i,
       AppendTo[lista,{i, multiplo, suma}]
        ]

TableForm[lista,TableHeadings->{None,{"Orden","Multiplo","Suma"}}]