Дан массив целых...

Дан массив целых чисел 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);
  end;
  write('x = '); readln(x);
  writeln('Исходный массив:');
  pr := 1;
  for i := 1 to n do
  begin
    write(a, ' ');
    if a mod x = 0 then
      pr := pr * a;
  end;
  writeln;
  if pr = 1 then
    writeln('Нет ни одного элемента кратного ', x)
  else
    writeln('Произведение элементов кратных ', x, ' = ', pr);
 end.