Вычислите и выведите на экран количество кирпичей в пирамиде из 25 слоёв если известно,что количество кирпичей в каждом слое равно квадрату порядкового номера слоя.

1var  2      i,n: byte; 3      s: integer; 4    begin 5      write('сколько слоев в пирамиде? '); 6      readln(n); 7      for i: =1 to n do 8      begin 9      s: =s+i*i; 10    writeln('в ',i,'-м слое ',i*i,' шаров'); 11    end; 12    writeln('в пирамиде из ',n,' слоев ',s,' шаров'); 13    readln; 14    end .

324 м/б можно передать за 360 сек

Решение во вложении, вам нужна только первая страница