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

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

Пример входных данных: координаты 1-го поля — 2 2; координаты 2-го поля — 3 3       Пример выходных данных: поля одного цвета

2.Напишите программу, в которой пользователю предлагается дополнить до 100 некоторое целое число а (а — случайное число, меньшее 100). Ответ пользователя проверяется и комментируется.

• 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.