const a : integer = 4;

procedure Test(var a : integer);
begin

end;

begin
Test(a);
end.