Напишите программу,которая находит сумму цифр введённого пятизначного натурального числа

Question

Напишите программу,которая находит сумму цифр введённого пятизначного натурального числа

Answer 1

Var A,S,k:integer;
begin
S:=0;
write('Введите A = ');Readln(A); 
 while (A>0) do    begin   
          If (k<5) then begin     <br>               k:=k+1;     S:=S+A mod 10;     A:=A div 10;     
               end   
          else begin
                  k:=100;A:=0;
                end; 
           end;  
f(k=5) then 
     write(S) 
else
      write('не пятизнач'); 
end.

Comments

спасибо,но там была ошибка так что только 4

---

ну да опечатка)