Программы на Паскале прилагаются.
носи́тель) — любой материальный объект или среда[уточнить], используемый человеком достаточно длительное время сохранять (нести) в своей структуре занесённую на него информацию, без использования дополнительных устройств (например, источника энергии).
Это может быть, например, камень, дерево, бумага, металл, пластмассы, кремний (и другие виды полупроводников), лента с намагниченным слоем (в бобинах и кассетах), фотоматериал, пластик со специальными свойствами (например, в оптических дисках) и другие.
Носителем информации может быть любой объект, с которого возможно (доступно) чтение (считывание) имеющейся на нём (нанесённой, записанной) информации.
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
Как то так))