Заполнить массив случайными числами (положительными и отрицательными) из произвольного диапазона. Вывести созданный массив

var a:array [1..100] of integer; //массив чисел i,nech,kr3:integer; //итератор массива, число нечетных чисел, число чисел, кратных трем begin randomize; // функция для использования случайных чисел for i:= 1 to 100 do begin a[i]:= random(100)-50; //заполнение массива случайными числами, в том числе и отрицательными if (a[i] mod 2 =1) and ((a[i] mod 3 = 0)then inc(kr3); // подсчет чисел, кратных трем if (a[i] mod 3 = 0) then inc(nech); // подсчет нечетных чисел end; for i:=1 to 100 do write(a[i], \' \'); //вывод элементов массивов writeln; writeln(kr3, \',\',nech, \' ,\', 100); // вывод ответов на задачу end.