program raf105;
var abc,a,sum: integer;
begin
write('Введите число: ');
readln(abc);
repeat
a:= abc mod 10;
sum:= sum+a;
abc:= abc div 10;
until a=0;
writeln('Сумма цифр: ',sum);
end.
