X[ i ]<>R по выходу из while как раз i - и будет индекс элемента массива, равного R
Var a,b,c,d,N:integer;
begin
Readln(N);
a:=N div 1000;
b:=(N div 100) mod 10;
c:=(N div 10) mod 10;
d:=N mod 10;
N:=a-b-c-d;
Writeln(N);
end.
1) (0&1)&1 = 0&1 = 0
2) 1&1&1&1 = 1
3) ((1&1) v 0) & (0 v 1) = (1 v 0) & (0 v 1) = 1 & 1 = 1