procedure donothing(x : integer);
  begin
    x := x * 2
  end;

var 
  someinteger : integer;

begin
  someinteger := 1;
  donothing(someinteger);
  writeln(someinteger)
end.