Для какого из проведённых значениий числа x истинно высказывание: (x< 8) и не (x< 7) ? 1) 92)83)74)6

Var a: array [0..10] of integer;     i, m: integer; begin       for i : = 0 to 10 do       begin           a[i] : = random(50) - 25;           writeln('[', i, '] => ', a[i]);       end;             for i : = 0 to 10 do           if (abs(a[i]) > abs(a[m])) then             m : = i;       writeln('[', m, '] => ', a[m]); end.

Var b, a, d1, d2, i, j: integer;     c: string; begin       readln(a, b);             for i : = a to b do       begin           d1 : = 0;           c : = inttostr(i);           for j : = 1 to length(c) do               d1 : = d1 + strtoint(c[j]);           if (d1 mod 2 = 0) then inc(d2);       end;       writeln(d2); end.