Определить количество элементов, кратных заданному числу - Turbo Pascal

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

3)В массиве A, состоящем из N целых чисел определить количество элементов, кратных заданному числу. вот еще такие задачки, помогите пожалуйста (

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

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

Var A:array[1..100] of integer;
    i,x,k,n:integer;
Begin
    Randomize;
    write('Введите размерность: ');readln(n);
    write('Введите число: ');readln(x);
    k:=0;
    For i:=1 to n do
     Begin
      A[i]:=random(11)-5;
      write(A[i]:3);
      if A[i] mod x = 0 then inc(k);
     End;
    writeln;
    writeln('Кол-во элементов кратные ',x,': ',k);
    readln;
End.

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

В данном коде на языке Turbo Pascal происходит следующее:

Создается переменная A типа array[1..100] of integer, которая представляет собой массив из 100 целых чисел.
Затем определяются четыре переменные: i, x, k и n. Переменная i используется для цикла, переменная x - для проверки на кратность, переменная k - для подсчета количества кратных элементов, а переменная n - для ввода размераности массива.
Далее происходит инициализация переменной k нулем.
Затем начинается цикл for, который проходит по всем элементам массива A от 1 до n.
Внутри цикла каждый элемент массива A вычисляется как случайное число от 11 до -5 (отсюда и отрицательное значение). Затем проверяется, делится ли этот элемент на x без остатка. Если да, то переменная k увеличивается на единицу.
После завершения цикла выводится количество элементов, кратных x.
В конце программы предлагается ввести данные для проверки (размерность и число), после чего программа завершается.