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.