Помогите пожалуйста. Написать программу вычисления суммы цифр числа

program znanija; varNum, Summ: word; beginSumm: =0; readln (Num); repeat Summ: =Summ+Num mod 10; Num: =Num div 10; until Num=0; writeln ('Сумма равна — ', Summ); readln; end.