Программа выглядит следующим образом на языке Pascal:

program CountMultiplesOfFirstElement;
var
arr: array of Integer;
n, i, count: Integer;
begin
write('Enter the number of elements in the array: ');
readln(n);
SetLength(arr, n);
write('Enter the elements of the array: ');
readln(arr[0]);
count := 0;
for i := 1 to n - 1 do
begin
readln(arr[i]);
if arr[i] mod arr[0] = 0 then
count := count + 1;
end;
writeln('Number of elements divisible by the first element: ', count);
end.

Эта программа запрашивает у пользователя количество элементов в массиве, затем заполняет массив значениями и считает количество элементов, которые делятся на первый элемент массива без остатка.