Решить по информатике 10 класс дано натуральное число п. определить: сумму цифр в числе

Program prog;
Uses crt;

var n,s: integer;

begin
clrscr;

write('n = ');
readln(n);

repeat
s:=(n mod 10)+s;
n:=n div 10;
until
n=0;

writeln;
writeln('S = ', abs(s));
readln;
end.