Дан массив целых чисел B (15), найти произведения элементов массива кратных х.

const  n = 15; var   a:array[1..n] of integer;   i, x, pr:integer; begin   for i := 1 to n do   begin     write('a[', i, '] = ');     readln(a[i]);   end;   write('x = '); readln(x);   writeln('Исходный массив:');   pr := 1;   for i := 1 to n do   begin     write(a[i], ' ');     if a[i] mod x = 0 then       pr := pr * a[i];   end;   writeln;   if pr = 1 then     writeln('Нет ни одного элемента кратного ', x)   else     writeln('Произведение элементов кратных ', x, ' = ', pr);  end.