program z16_21;
var
n:longint;
i,cod,x,y:integer;
s:string;
begin
write('Ââåäèòå íàòóðàëüíîå ÷èñëî');
readln(n);
str(n,s);
for i :=1 to length(s) do
if i mod 2 <> 0 then begin
val(s[i],x,cod);
y:=y+x;
end;
writeln('Ñóèèà íå÷åòíûõ öèôð ÷èñëà=',y);
End.