Решение задачи на Паскаль, оператор While. Прошу, помогите, срочно прямо сейчас!!

Попробуйте такой вариант:programm onevar n, i: integer;S: real;beginreadln(n);while(i != n)begins := s + 1/((2*n+1)*(2*n+1));i = i+1;end;writeln(s);readln();end.