var
a:array[1..10000] of integer;
i,s,n:integer;
begin
s:=0; {Обнуление переменной, в которой будут суммироваться "нужные" члены последовательности}
write ('n=');
readln(n); {ввод количества членов последовательности}
randomize; {запуск генератора случайных чисел}
for i:=1 to n do begin
a[i]:=random(100); {заполнение массива (последовательности) случайными значениями в интервале 0..99} 
if abs(a[i])<sqr(i) then s:=s+a[i]; {сравнение значений члена последовательности с квадратом его номера; если первое меньше второго, то к величине s прибавляется значение данного члена последовательности }
end;
writeln ('summa=',s); {вывод полученной суммы}
readln {останов для разглядывания выведенного на экран результата}
end. {Усё!}