TOANLE PASCAL

var n,m:int64;
    kq:boolean;
begin
    assign(input, 'toanle.inp');reset(input);
    assign(output, 'toanle.out');rewrite(output);
    read(n);
    kq:=true;
    while n>0 do
    begin
          m:=n mod 10;
        if m mod 2=0 then         
            kq:=false;
          n:=n div 10;
    end;
    write(kq);
end.