method x()
  x:=x-x-x;
end;