var

i,n: byte;

s: integer;

begin

write('Сколько слоев в пирамиде? ');

readln(n);

for i:=1 to n do

begin

s:=s+i*i;

writeln('В ',i,'-м слое ',i*i,' шаров');

end;

writeln('В пирамиде из ',n,' слоев ',s,' шаров');

readln;

end

Как то так))

Программы на Паскале прилагаются.