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

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