Дан массив B(21) Сформировать новый массив из кратных 4 чисел исходного - Turbo Pascal

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

Дан массив B(21) Сформировать новый массив из кратных 4 чисел исходного. Мальчики, помогите пожалуйста с задачей, программирование вообще не мое, но на стипендию выходить как-то нужно.

Решение задачи: «Дан массив B(21) Сформировать новый массив из кратных 4 чисел исходного»

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

uses crt;
const n=21;
var a,b:array[1..n] of integer;
i,j,x,k:integer;
BEGIN
clrscr;
for i:=1 to n do
 a[i]:=random(100);
 write('MASS A : ');
 for i:=1 to n do
  write(a[i]:4);
  writeln;
 
  j:=1;
  for i:=1 to n do
   if a[i] mod 4=0 then
    begin
     b[j]:=a[i];
     inc(j);
    end;
 
    writeln('New mass : ');
    for i:=1 to j-1 do
     write(b[i]:4);
readkey;
END.

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

В данном коде используется язык программирования Turbo Pascal. Он содержит следующие переменные:

a и b - массивы, используемые для хранения чисел.
i, j, x и k - переменные, используемые для обработки чисел.
n - константа, определяющая размер массива. Код начинается с инициализации массивов a и b случайными числами от 0 до 99. Затем он выводит содержимое массива a с помощью функции write. Далее следует цикл, который проходит по всем элементам массива a. Если текущий элемент делится на 4 без остатка, то его значение копируется в массив b, а счетчик j увеличивается на 1. В конце выводится содержимое массива b с помощью функции write. После этого программа просит нажать любую клавишу с помощью функции readkey.