Question

Напишите программу по данной блок-схеме (Паскаль)

Answer 1

program z;
var a,s,b,x:Integer;
begin
ReadLn(a);
s:=0;
for b:=1 to 6 do
begin
x:=a mod 10;
if x mod 2 <> 0 then s:=s+x;
a:=a div 10;
end;
WriteLn(s);
end.