Вводится число N найти чему равна сумма цифр числа

var sum: integer; number: longint; beginsum: =0; write ('Введите число: '); read (number); while number > 0 dobeginsum: =sum+(number mod10); number: =(number div10); end; writeln ('Сумма цифр числа=', sum); readln; end.