Помогите с составлением алгоритма, пожалуйста!
Дана последовательность, общий член которой определяется формулой: An = (n-1)/n^2. Вычислите сумму тех её членов, которые больше заданного числа e при n>=2

Огромнейшее спасибо, вроде получилось всё в схему свернуть!

Рад помочь=)))

Var S,E:real;N:integer;BeginWrite('E = ');ReadLn(E);N:=2;S:=0;While (N-1)/(N*N)>E do Begin S:=S+(N-1)/(N*N); N:=N+1 End;WriteLn(S)End.