Unit U6; interface var k : integer; implementation var m : integer; begin k:=1; m:=2; end.