procedure Test(var a : integer);
begin
end;

const a : integer = 3;

begin
Test(a);
end.