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);
if abs(a[i])<sqr(i) then s:=s+a[i];
end;
writeln ('summa=',s);
readln
end.