var
d, k: integer;
begin
write('Запишите число: ');
readln(d);
while d > 0 do
k := k + (d mod 10);
d := d div 10;
end;
writeln(k);
end.
var
d, k: integer;
begin
write('Запишите число: ');
readln(d);
while d > 0 do
begin
k := k + (d mod 10);
d := d div 10;
end;
writeln(k);
end.