// Pascal does not support default parameter values in functions or procedures.
// Some Pascal compilers support function overloading.
// This allows you to define two versions of the same function with different parameter lists.
program DefaultParameterProgram;
function AddNumbers(a: Integer; b: Integer): Integer; // First version
begin
AddNumbers := a + b;
end;
function AddNumbers(a: Integer): Integer; // Second version (overloaded)
begin
AddNumbers := AddNumbers(a, 10); // Call the first version with default b = 10
end;
begin
writeln(AddNumbers(8));
writeln(AddNumbers(9, 16));
end.
(*
run:
18
25
*)