Заполнить массив случайными числами из отрезка (0,В) - Pascal

Формулировка задачи:

Заполнить массив случайными числами из отрезка (0,В)

Решение задачи: «Заполнить массив случайными числами из отрезка (0,В)»

Листинг программы

program pr;
const
  Csize = 100;
var
  b, i, n: integer;
  a: array [1..Csize] of integer;
begin
  writeln('Введите размер массива');
  readln(n);
  writeln('Введите В');
  readln(b);
  for i := 1 to n do
  begin
    a[i] := random(b + 1);
    write(a[i]:3);
  end;
end.

Объяснение кода листинга программы

Название программы: pr
Константа Csize со значением: 100
Переменные: b, i, n типа integer
Массив a размера Csize
Программа запрашивает ввод значения для переменной n (размер массива) и считывает его с клавиатуры
Затем программа запрашивает и считывает значение для b
Далее происходит заполнение массива a случайными числами в диапазоне от 0 до b
Значения массива выводятся на экран с помощью цикла for.
Конец программы.