Поле шахматной доски определяется парой натуральных чисел, каждое из которых не превосходит 8.По введенным координатам двух полей выясните являються эти поля одного цвета

1. var k, l, m, n: integer; begin   readln(k,l,m,n);   if (k+l+m+n mod 2 = 0) then     writeln('поля одного цвета')   else     writeln('поля разных цветов') end. 2. uses crt; {В зависимости от компилятора эта строчка может оказаться лишней} var question, answer: integer; begin   randomize();   question := random(100);   writeln(question);   readln(answer);   if (question+answer=100) then     writeln('Not bad')   else     writeln('Oops. Right answer is ', 100-question) end.