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

begin

 var a := ArrRandom(ReadInteger('n='), -99, 99);

 a.Println;

 var k := ReadInteger('Введите число для отбора по кратности:');

 var b := a.Where(t -> (t <> 0) and (t mod k = 0)).Reverse.ToArray;

 b.Println

end.

n= 21

-32 50 45 -21 -28 7 -24 60 42 -91 -51 47 -72 82 14 7 40 51 -82 92 -85

Введите число для отбора по кратности: 3

51 -72 -51 42 60 -24 -21 45