Создать массив из 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; begin for i:=-30 to 0 do a[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.