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

end.