Question

Хелппппппппппппппппппппппппппппппппппппп

Answer 1

Program al;
var i,s,n:integer;
f,g:text;
begin
 assign(f,'input.txt');
 reset(f);
 read(f,n);
 s := 0;
 while (n <> 0) do
 begin
 s := s + n mod 10;
 n := n div 10;
 end;
 assign (g,'output.txt');
 rewrite(g);
 write(g,s); 
close (f);
 close(g); 
end.