Найти сумму четырехзначного числа ** языке паскаль

Question

Найти сумму четырехзначного числа на языке паскаль

Comments

Сумму разрядов ?

---

знаю только условие задачи

Answer 1

Program pro;
var k,a,sym:integer;
begin
readln(k);
while k>0 do 
begin 
a:=k mod 10; 
sym:=sym+a; 
 k:=k div 10; 
 end;
writeln('Сумма разрядов четырехзначного числа равна ',sym)
end.