массив а[1..10] зпполните случайными числами в диапазоне от 1 до 20. все его элементв увеличить на число b

var

  a: array[1..10] of integer;

  b: integer;

begin

  randomize;

  write('Введите b: ');

  readln(b);

  writeln();

  writeln('Массив:');

  for var i := 1 to 10 do

  begin

     a[i] := random(1, 20) + b;

     writeln(i, ') ', a[i]);    

  end;

end.