Program z5_32; uses crt; var i,n,s,c,a,b,m,k:integer; BEGIN clrscr; write('Vvedite chislo'); readln(n); m:=n; for i:=1 to k+1 do c:=(m div 100); a:=(m div 10)-c*10; b:=m mod 10; s:=c+a+b; writeln('otvet s=',s:5); readln; END.