Найдите сумму элементов массива кратных заданному числу. Паскаль.

var

 a, q, n, i, S: integer;

begin

 read(n, q);

 for i := 1 to n do

 begin

   read(a);

   if a mod q = 0 then S := S + a;

 end;

 writeln(S);

end.

Объяснение:

q - заданное число которому должны быть кратны элементы массива

n - кол-во элементов массива