Pascal: введите число А (пятизначное). Вывести среднее арифметическое цифр числа A.

Если я всё верно понял то программа должна сложить цифры числа и поделить их на количество этих цифр например число 12345 должно будет обработаться так 1+2+3+4+5=15 15/5=3, программа на скрине, я её сделал не только для этого примера, туда можно ввести любое число и программа сработает верно, программу не комментировал надеюсь всё и так понятно