дан одномерных массив содержащий n элементов и заполненный с клавиатуры. Сформулируйте новый массив из отрицательных элементов исходного массива

vara:array[1..10000000] of real;b:array[1..10000000] of real;n,i:integer;c:real;beginwrite('Размер массива - ');readln(n);write('Заполните массив - '); for i:=1 to n do  read(a[i]); for i:=1 to n do  begin  b[i]:=a[i]*(-1);   write(b[i],' ');  end;end.