Дано натуральное число. Определить количество его цифр, кратных z. Написать в Паскаль

Щас! Учись сам выполнять задание! Развелось тут вас халявщиков! Я сам до всего самоучкой доходил!

Интересно то, что если данное задание относится к числу, записанному в шестнадцатеричной форме, то оно решается экстремально легко операцией побитового сдвига и проверки условия в цикле. Для десятичной формы придется в цикле делить на 10 с остатком, а для машины деление на 10 - полноценное деление.

0
4islo = 4395029 z = 7
-------------------
4
4
2
6
4islo = 6127447 z = 2
-------------------
kratnyx net
4islo = 1192622 z = 8
-------------------
9
0
3
3
4islo = 1330591 z = 3
-------------------
5
4islo = 292652 z = 5
-------------------
4
4
4islo = 6493949 z = 4
-------------------
0
4islo = 9261036 z = 4
-------------------
8
8
8
4islo = 2889186 z = 8
-------------------
8
0
6
4islo = 1615078 z = 2
-------------------
4
4
4islo = 4125465 z = 4
-------------------
6
4islo = 4715619 z = 6
-------------------
kratnyx net
4islo = 4134213 z = 6
-------------------
7
4islo = 3397558 z = 7
-------------------
0
4islo = 2053918 z = 11
-------------------
kratnyx net
4islo = 496435 z = 7
-------------------
3
4islo = 423185 z = 3
-------------------
0
7
7
4islo = 5773909 z = 7
-------------------
kratnyx net
4islo = 9656137 z = 10
-------------------
kratnyx net
4islo = 3947692 z = 11
-------------------
6
6
9
4islo = 9664885 z = 3
-------------------
4
8
4islo = 538413 z = 4
-------------------
0
4islo = 1223048 z = 5
-------------------
5
4islo = 8975487 z = 5
-------------------
5
4islo = 9876586 z = 5
-------------------
8
4islo = 9819519 z = 2
-------------------
kratnyx net
4islo = 2656139 z = 11
-------------------
6
4islo = 1272263 z = 6
-------------------
kratnyx net
4islo = 6462494 z = 11
-------------------
kratnyx net
4islo = 3693216 z = 4
-------------------
4
0
0
4
4islo = 1400174 z = 4
-------------------
0
0
4islo = 4560404 z = 11
-------------------
4
0
0
8
4islo = 1802064 z = 4
-------------------
0
4islo = 1841204 z = 10
-------------------
0
0
0
4islo = 1005720 z = 11
-------------------
kratnyx net
4islo = 8931765 z = 10
-------------------
8
8
4
6
4
4islo = 4648958 z = 2
-------------------
0
4islo = 2540462 z = 11
-------------------
0
4islo = 6901549 z = 11
-------------------
9
4islo = 4151974 z = 3
-------------------
kratnyx net
4islo = 7261478 z = 11
-------------------

Не знаю как в паскале..