Решите пж 15 и 16 программу
ДАМ 60 баллов

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




ЬеЬ

А есть другой способ решить?