Заполните массив с клавиатуры целыми числами. Определите, есть ли в данном массиве положительные элементы, кратные числу A заданному с клавиатуры?
Если есть, то вывести слово «YES», иначе — «NO».

Входные данные:

в первой строке целое число n (0 < n ≤ 100) — кол-во элементов в массиве и число целое А (по модулю не превосходит 32000). Во второй строке целые числа Х1, Х2,..,Хn разделенные пробелом (числа по модулю не превосходят 32000) — значения элементов массива.

Выходные данные:

слово «YES» или «NO» в соответствии с условием задачи.

на ПАСКАЛЕ.......
Пожалуйста...

var  yes,no:string; a,n,i:longint; c:integer;b:array [1..100] of longint;beginwriteln('введите кол-во элементов в массиве');read(n);writeln('введите число A');read(a);For i:=1 to n do readln(b[i]);for i:=1 to n doif b[i] mod a = 0 thenbeginyes:='YES';endelseno:='NO';beginend;beginif yes = 'YES' thenbeginwriteln(yes);endelsewriteln(no);end;end.Пробуй так