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

begin

end.