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

• Математический. Именно этот стиль присваивается всем вводимым символам по умолчанию. Он не содержит определения шрифта и начертания символов. При работе с этим стилем используется специальный алгоритм распознавания имен математических функций, например sin, log или ехр. Именам функций автоматически присваивается стиль Функция, не относящиеся к этим именам буквы имеют стиль Переменная.

• Текст. Выбор этого стиля облегчает ввод в формулу обычного текста. Работая с ним, можно использовать клавишу Пробел, а также вводить обычный текст в формулы, создаваемые с редактора формул. Для этого стиля не предусмотрено автоматическое распознавание и форматирование математических символов.

• Функция. Используется для записи обозначений стандартных математических функций, например sin и log.

• Переменная. Используется в обозначениях переменных и констант.

• Греческий. Этот стиль служит для написания греческих букв.

• Матрица-вектор. Как и следует из названия, применяется при вводе матриц и векторов.