program z9_5;
var
s:string;
cod,c:integer;
x:longint;
begin
writeln('Введите набор символов');
readln(s);
val(s,x,cod);
if cod <> 0 then writeln('введенная запись не является числом')
else begin
while x<>0 do
begin
c:=c+ x mod 10;
x:=x div 10;
end;
writeln('сумма цифр введенного числа =',c);
end;
End.