напишите программу,которая считает сумму цифр введенного числа(паскаль)

var n,sum:integer;beginwriteln('Vvedite chuslo');readln(n);repeatsum:=sum+(n mod 10);n:=n div 10;until n=0;writeln('summa=',sum);end.