Вычислите сумму элементов массива, кратных X - Turbo Pascal

Формулировка задачи:

Сформируйте одномерный массив из n элементов. Выведите его на экран в строку. Вычислите сумму элементов массива, кратных x (x вводить с клавиатуры ).

Решение задачи: «Вычислите сумму элементов массива, кратных X»

Листинг программы

program pr;
 
var
  i, n, sum, x: integer;
  a: array [1..100] of integer;
 
begin
  sum := 0;
  writeln('Введите число х');
  readln(x);
  writeln('Введите размер массива');
  readln(n);
  for i := 1 to n do
  begin
    a[i] := random(21);      // диапазон заполнения массива cnавь любой(здесь от 0 до 20)
    write(a[i]:3);
    if (a[i] mod x = 0) then
      sum := sum + a[i];
  end;
  writeln;
  writeln('Сумма элементов кратный ', x, ': ', sum);
end.

Объяснение кода листинга программы

В данном коде на Turbo Pascal пользователь должен ввести два числа: размер массива и число X. Затем программа генерирует случайные числа для каждого элемента массива в диапазоне от 0 до 20 (это значение можно изменить). Если сгенерированное число делится на X без остатка, то оно добавляется к сумме. В конце программа выводит сумму элементов, кратных X.