Blocks, 51 bytes 52 62 82 87 (non-competing)

::`+`1|U;{`*`1}|A;`+`1,0+`1={`1^2}|;0+`,`1+`={`^2}| 

Ungolfed:

:: ` + `1 | Expand; {` * `1} | SetAll; ` + `1, 0 + `1 = {`1 ^ 2} | Set; 0 + `, `1 + ` = {` ^ 2} | Set 

Try it

Blocks, 52 62 82 87 51 bytes

::`+`1|U;{`*`1}|A;`+`1,0+`1={`1^2}|;0+`,`1+`={`^2}| 

Ungolfed:

:: ` + `1 | Expand; {` * `1} | SetAll; ` + `1, 0 + `1 = {`1 ^ 2} | Set; 0 + `, `1 + ` = {` ^ 2} | Set 

Try it

Unnamed, 51 bytes 52 62 82 87 (non-competing)

::`+`1|U;{`*`1}|A;`+`1,0+`1={`1^2}|;0+`,`1+`={`^2}| 

Ungolfed:

:: ` + `1 | Expand; {` * `1} | SetAll; ` + `1, 0 + `1 = {`1 ^ 2} | Set; 0 + `, `1 + ` = {` ^ 2} | Set 

Try it

Blocks, 51 bytes 52 62 82 87 (non-competing)

::`+`1|U;{`*`1}|A;`+`1,0+`1={`1^2}|;0+`,`1+`={`^2}| 

Ungolfed:

:: ` + `1 | Expand; {` * `1} | SetAll; ` + `1, 0 + `1 = {`1 ^ 2} | Set; 0 + `, `1 + ` = {` ^ 2} | Set 

Try it

Unnamed, 53 bytes 62 82 87 (non-competing)

This will right-align numbers

?:F:`+`1|U;{`*`1}|A;`+`1,0+`1={`1^2}|;0+`,`1+`={`^2}| 

Ungolfed:

?:F: ` + `1 | Expand; {` * `1} | SetAll; ` + `1, 0 + `1 = {`1 ^ 2} | Set; 0 + `, `1 + ` = {` ^ 2} | Set 

Try it

Unnamed, 51 bytes 52 62 82 87 (non-competing)

::`+`1|U;{`*`1}|A;`+`1,0+`1={`1^2}|;0+`,`1+`={`^2}| 

Ungolfed:

:: ` + `1 | Expand; {` * `1} | SetAll; ` + `1, 0 + `1 = {`1 ^ 2} | Set; 0 + `, `1 + ` = {` ^ 2} | Set 

Try it