program main; var a,b: integer; begin a := 56; b := 4; a := a - - 4 + +b; if (- not not not a <> 65) then begin a := - - -1; end else begin a := 0 + +b; end; write(a); end.