Заданы две клетки шахматной дощечки. Если они покрашены в один цвет,

Клеточка будет темной, если номер столбца и номер строки будут одновременно четными либо нечетными. Белоснежными, если один из их четный, а 2-ой нечетный.
var a,b,c,d,t,k:integer;
begin
k:=0;
t:=0;
read(a);
read(b);
read(c);
read(d);
if (a mod 2=0) and (b mod 2=0) or (a mod 2=1) and (b mod 2=1) then
t:=1;
if (c mod 2=0) and (d mod 2=0) or (c mod 2=1) and (d mod 2=1) then
k:=1;
if tlt;gt;k then
writeln('NO')
else
writeln('YES');
end.