В такой программе, пишет что "=" не применимо к integer... var n, a, k: integer; begin readln(n, a); if (n+a) mod 2=0 or (n+a) mod 2=1 then writeln(k - (k div n) * n ) end.
Паскаль требует каждое логическое выражение выделять в "()", поэтому нужно написать if ((n+a) mod 2 = 0) or ((n+a) mod 2 = 1) и будет тебе счастье
У тебя еще переменная "к" не реализована, а ты ее используешь - это еще 1 ошибка