uses bitwise, crt;
var w:word;
    b:byte;

function neg(w:word):word;assembler;
asm
   mov ax,w
   cmp ax,0
   je  @z
   not ax   ;  {<=>   xor ax, 0ffffh}
   inc ax
@z:
end;

begin
     clrscr;
     write('w=');readln(w);

     show(w,'w');
     show(-w,'-w');
     show(not w,'!w');
     writeln(desc_powerof(w,2));
     readkey;
end.