ПЛАЧУ МНОГО БАЛОВ, ПОМОГИТЕ
Помогите пожалуйста, срочно! Помогите, буду очень благодарен!

var y,sum:real;i:integer;beginsum:=0;for i:=2 to 10 do beginsum:=sum+(1/(i*i));end;y:=1+sum;writeln(y);end.

var n,i:integer; y:real;beginn:=10;y:=0;for i:=1 to n do y:=y+1/(i*i);writeln('y = ',y);end.Результат:y = 1.54976773116654