Составьте программу увеличения всех элементов массива на 4 - Turbo Pascal

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

1.Составьте программу увеличения всех элементов массива на 4. Помогите пожалуйста

Решение задачи: «Составьте программу увеличения всех элементов массива на 4»

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

var
  a: array[1..10] of integer;
  i: integer;
begin
  randomize;
  for i:=1 to 10 do
    begin    
      a[i]:=random(9);
      write(a[i]:4);
    end;
  writeln;
  for i:=1 to 10 do
    begin
      a[i]:=a[i]*4;
      write(a[i]:4);
    end;
  readln;
end.

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

Создаётся переменная a типа array[1..10] of integer, что означает создание массива из 10 целых чисел.
Переменная i инициализируется значением 1.
Запускается цикл for, который выполняется 10 раз, начиная с i=1 и заканчивая i=10.
Внутри цикла создается вложенный цикл for, который также выполняется 10 раз.
Внутри вложенного цикла переменная a[i] инициализируется случайным числом от 0 до 9.
Выводится значение переменной a[i].
После окончания вложенного цикла выводится символ новой строки.
Повторяются шаги 5-7 для каждого значения i в диапазоне от 1 до 10.
После окончания внешнего цикла выводится символ новой строки.
Программа завершается, и пользователь может ввести следующую команду.