Хотел бы я понять, Хелен - как же Вы пытаетесь работать со стеками (в другой теме) и прочей заумью, не освоив Паскаль даже на самом низшем из возможных уровней? Чудеса...
Ну ладно:
Код:
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]:=70-random(100);
write(a[i]:4);
if abs(a[i])<sqr(i) then
s:=s+a[i];
end;
writeln;
writeln ('summa= ',s);
readln
end.