Ответы и объяснения

2013-11-13T19:16:18+04:00
Program m;
var a,s,i: ineger;
begin
s:=0;
readln(a);
for i:=1 to 3 do
begin
 s:= s + (a mod 10);
 a:= a div 10;
end;
writeln(s);
readln();
end.

2 задача прикреплена