Дано натуральное число. Сформировать массив двузначных отрицательных чисел делящихся на 3 - Pascal

Дано натуральное число. Сформировать массив двузначных отрицательных чисел делящихся на 3

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

const n=20;
var a:array[1..n] of integer;
    i:byte;
begin
randomize;
for i:=1 to n do
 begin
  a[i]:=-3-random(34)*3;
  write(a[i]:4);
 end;
end.

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

Объявляется константа n со значением 20.
Объявляется массив a размерности от 1 до n с целочисленными значениями.
Объявляется переменная i типа byte.
Генерируется случайная последовательность чисел.
В цикле от 1 до n происходит следующее:
- Присваивается элементу массива a значение, вычисляемое как -3 минус случайное число в интервале от 0 до 34, умноженное на 3.
- Значение элемента массива a выводится на экран с выравниванием по 4 символа.
Программа завершается.