Вычислить точное значение суммы 1^2 + 2^2 +3^2 +…+ n^2 (n>1999) — Pascal(Паскаль)

var n,i : integer;
s:double;
begin
  write('n = ');
  readln(n);
  s:=0;
  for i:=1 to n do
  s:=s+i*i;
  writeln('s = ',s);
  readln;
end.