Почему-то сайт informatics считает что я не совсем верно написала код, помогите найти что не так.
Задание : найти сумму квадратов от 1 до n.
Var n, i, s:integer;
Begin
S:=0;
Readln(n);
For i := 1 to n do
Begin
S:=s+(i*i);
End;
Writeln(s);
End.