Пожалуйста посчитайте срочно с информатикой 9 класс!!!

var n,i:integer;
a:array[1..10000]of integer;
begin
readln(n);
for i:=1 to n do 
a[i]:=random(6)-5;
for i:=1 to n do
writeln(a[i]);
for i:=1 to n do
writeln(a[i]*-1);
end.