массив а[1..10] зпполните случайными числами в спектре от 1 до 20.

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.