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
Как то так))
Программы на Паскале прилагаются.
