Дан массив целых чисел 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.