Подсчитать количество цифр в числе, оформить в виде процедуры с параметром. надо

Для примера возмем целое число N=1234, имеющее четыре цифры. Если разделить это число на 10, то получим 123 целых и в остатке 4. Поэтому цифру 4 (остаток при делении на 10) можно вывести на экран, а в новое значение N записать 123. Потом эту процедуру повторяем еще столько раз, сколько цифр имеем (в данном случае 3). Для целочисленного деления используем функцию div, а для взятия остатка mod.

это не твоё задание, но такое-же просто цыфры другие надеюсь поймешь