Program bai1;
uses crt;
var
i:byte;
n,m:longword;
begin
clrscr;
writeln('Nhap n =');
readln(n);
    while(n<>0)do
     begin
        m:=n mod 10;
        n:=n div 10;
        if m mod 2 > 0 then
        begin
            writeln('0');
            i:=0;
            break;
        end
        else
            i:=1;
     end;
     if i<>0 then writeln('1');
readln;
end.