ответьте на вопрос.
Какое значение имеют звуки?

Звуки ориентироваться в простанстве и воспринимать информацию на слух.

var 

i,n: integer;

begin

readln(n);

for i: =1 to n-1 do write(i*i: 5);

end.

если делать, как самоделкин, стыковать кубики столбиком,

то получится так:

var

n: integer;

begin

readln(n);

writeln(4*(2*n+1),' спичек понадобится');

end.

а если находить именно наименьшее число спичек, то надо рассматривать случаи, когда кубики складываются в квадраты и кубы соответственно, но это слишком сложно.