вторник, 1 ноября 2011 г.

program noya;
uses crt;
var a,s: longint;
begin
clrscr;
s:=0;
write ('a='); readln(a);
while a>0 do
begin
s:=s+ a mod 10;
a:= a div 10;
end;
writeln ('s=',s);
readkey;
end.