program DoubleMinus;
var x: integer;   y: integer;
begin
   x := -2;  y := --x;
   write('x = ', x, eol)
end