Создать одномерный массив с помощью генератора случайных чисел, содержащий целые числа из диапазона от -20 до +80. К

program elementy_massiva;

var x: array[-20..80] of integer;

      i, j, a, b: integer;

begin

randomize;

writeln(\'Введите число A\');

readln(a);

writeln(\'Введите число B\');

readln(b);

for i := 1 to 100 do x[i] := random(100);

for i:=1 to 100 do begin

if x[i] div 2 = 0 then x[i] := x[i] + a else x[i] := x[i] - b;

for i := 1 to 100 do write(x[i]:4);

end.