Пожалуйста имейте ввиду, что этот пользователь забанен
примени эту прогу, не получится - пиши
uses crt;
var x,sum,n: integer;
begin
clrscr;
write('ввести число --> 'readln;
sum := 0;
while n<>0 do
begin
sum:=sum + n mod 10;
n := n div 10;
end;
write('Сумма цифр = ',sum);
readln;
end.