Var x,y,z,k:boolean; begin writeln('Введите значения x,y,z(true или false)'); readln(x,y,z); k:=not(x or y) and z; write('Значение выражения: ',k); <span>end.</span>
Верно сказано про Аню( точное утверждение) у Ани синяя флешка у Маши не синяя ( значит или белая или красная) у Вари не белая (значит синяя или красная),но синяя у Ани. Получается, то у Вари--красная. Тогда оставшаяся белая флешка у Маши