Вычислить сумму нечётных цифр заданного натурального числа.

var
  a: integer;
  s: byte;
  f,g: text;
begin
  assign(f,'C:\Files\input.txt');
  reset(f);
  readln(f,a);
  close(f);
  assign(g,'C:\Files\output.txt');
  rewrite(g);
  while a>0 do
  begin
    if a mod 2<>0 then s:=s+a mod 10;
    a:=a div 10;
  end;
  writeln('s = ',s);
  writeln(g,s);
  close(g);
end.

f,g: text;
begin
  assign(f,'C:\Files\input.txt');
  reset(f);
  readln(f,a);
  close(f);
  assign(g,'C:\Files\output.txt');
  rewrite(g);

var
  a: integer;
  s: byte;
begin
  readln(a);
  while a>0 do
  begin
    if odd(a)=true then s:=s+a mod 10;
    a:=a div 10;
  end;
  writeln('s = ',s);
end.

var
  a: Longint;
  s: byte;
begin
  readln(a);
  while a>0 do
  begin
    if odd(a)=true then s:=s+a mod 10;
    a:=a div 10;
  end;
  writeln(s);
end.