Определите количество шаров в пирамиде состоящей из n слоев если количество шаров в слое равно квадрату номера слоя

var  n,s,i: integer;beginwrite('Количество слоев: ');readln(n);for i := 1 to n do      s:=s+i*i;writeln('Число шаров: ',s)end.