Найти сумму квадратов первых n натуральных чисел. паскааль

Var
  sum,n:longint;
begin
  writeln('n=? ');
  readln(n);
  sum:=0;
  // основной цикл
  for var i:=1 to n do
    sum:=sum+i*i;
  writeln('При n=',n,' сумма квадратов первых n чисел = ',sum);
end.