Решите в Pascal ABCНа вход программке подаются 4 целых числа, по

var m, n, k, l : longint;

begin

readln(m, n, k, l);

writeln(((m mod n) xor k) * ((m mod n) xor l) + 1);

end.

Работает программка последующим образом:

Если провести операцию XOR с двумя одинаковыми числами, то ответом будет 0.

Если остаток от дробления равен k либо l, то одна из скобок одинакова 0, что при умножении даст 0. Для выполнения условия задачки добавим 1.