var
masiv:array[-10000..10000] of integer;
begin
for var i := -10000 to 10000 do
randomize;
masiv[i] := random(-10000, 10000);
end;
end.
