Решите пожалуйста 4 уровень
Var A: array [1..10] of integer; i, k, z: integer; begin z := 0; write('Введите k = '); readln(k); for i := 1 to 10 do begin readln(A[i]); if A[i] mod k = 0 then z := z + 1; end; writeln('Чисел кратных ', k, ' = ', z); end.