Дан одномерный целочисленный массив размерностью N. Сформировать новый массив из элементов исходного, кратных заданному числу а и больших по модулю их

индекса. Если такие элементы отсутствуют, то выдать об этом сообщение. паскаль

Const n = 10;

var

b: array[1 ... n] of integer;

c: array[1 ... n] of integer;

i, a, k: integer;

begin

//считываем массив b

for i:=1 to n do

readln (b[i]) ;

//вводим a

readln (a) ;

k:=0;

for i:=1 to n do

//если элемент кратен А и по модулю больше I то

if (b[i] mod a = 0) and (abs (b[i]) > i) then

begin

//увеличиваем k на 1 и присваиваем c[k] a[i]

inc (k) ;

c[k] : = b[i];

end;

if k = 0 then

writeln ('Таких элементов нет')

else

for i:=1 to k do

writeln (c[k]) ;

end.