var k, l, m, n : 1..8;
    Pole: boolean;
begin
    write('k = '); readln(k);
    write('l = '); readln(l);
    write('m = '); readln(m);
    write('n = '); readln(n);

    Pole:=((odd(k)) and (l mod 2=0) or (odd(l)) and (k mod 2=0)) and ((odd(m)) and (n mod 2=0) or (odd(n)) and (m mod 2=0));
    write(Pole);
end.