Втакой программе, пишет что "=" не применимо к 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 ошибка