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

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