Скопируйте отрицательные и положительные кратные заданному числу элементы массива А в массив В в обратном порядке. Задача в паскале, спасибо!

Предыдущий
вопрос Следующий
вопрос

Пример:

program MultipleElementsArray;
const
n = 10;
k = 3; // число, кратное которому будем искать
var
A, B: array[1..n] of integer;
i, j: integer;
begin
// заполняем массив A случайными числами
for i := 1 to n do
A[i] := random(20) - 10; // случайное число от -10 до 10
// выводим исходный массив A
writeln('Массив A:');
for i := 1 to n do
write(A[i], ' ');
j := 1; // индекс для массива B
// ищем и копируем в обратном порядке отрицательные и положительные кратные числу k
for i := n downto 1 do
begin
if (A[i] mod k = 0) and (A[i] <> 0) then
begin
B[j] := A[i];
j := j + 1;
end;
end;
// выводим массив B
writeln;
writeln('Массив B:');
for i := 1 to j - 1 do
write(B[i], ' ');
end.

Это простая программа на Pascal, которая заполняет массив A случайными числами, затем копирует отрицательные и положительные числа, кратные числу k, в массив B в обратном порядке и выводит их на экран.