procedure Test(a : 1..3);
begin
end;

procedure Test(a : 2..4);
begin
end;

begin
Test(1);
end.