Пользуйся
Объяснение:
//fpc 3.0.0
program CheckColour;
var
k,l,m,n,kmod,lmod,mmod,nmod,klflag,nmflag: integer;
begin
kmod:=0;
lmod:=0;
mmod:=0;
nmod:=0;
klflag:=0;
nmflag:=0;
read(k, l, m, n);
kmod := (k mod 2);
lmod := (l mod 2);
mmod := (m mod 2);
nmod := (n mod 2);
//writeln(k, l, m, n);
//writeln(kmod, lmod, mmod, nmod);
klflag:=(kmod xor lmod);
nmflag:=(nmod xor mmod);
//writeln(klflag, nmflag);
if klflag = nmflag then writeln(true)
else writeln(false);
end.
Input 2 3 5 7
output FALSE
Клетка 1, 1 - черная
Програмку написал на случай, если прибыль за год будет добавляться ко вкладу каждый год для увеличения самого вклада.