Sum of digits in a number

Simple code written in Pascal