Создать массив из 20 случайных чисел в диапазоне от -30 до 0. Нечетные элементы возвести в квадрат и вывести на экран

Массив будет состоять из целых чисел на промежутке [-30;0]. Обозначим a[i] значение элемента массива а. Формироваться он будет в первом цикле случайным образом с помощью оператора random, который генерирует случайные числа по формуле: оператор:= random (max-min+1)+min.Во втором цикле выведем сформированный в первом цикле массив на экран. В третьем цикле будем искать нечетные числа и возводить их в квадрат, а в четвертом цикле выведем новый массив на экран. Программа на языке программирования Pascal ABC может выглядеть так:program zadaca;uses crt;var a: array[-30..0] of integer; {Описание массива}i:integer;beginfor i:=-30 to 0 doa[i]:=random(0-(-30)+1)+(-30); {Формирование массива случайным образом}for i:=-30 to 0 do {Вывод сформированного массива на экран}write(a[i],\' \');writeln;for i:=-30 to 0 do {Поиск нечетных элементов массива и возведение их в квадрат}if a[i] mod 2<>0 then a[i]:=sqr(a[i]);for i:=-30 to 0 do {Вывод на экран элементов нового массива}write(a[i],\' \');end.