procedure Greet(
  const Name: string = 'unknown');
begin
  WriteLn('Hello, ', Name);
end;

begin
  Greet;
  //prints 'Hello, unknown'

  Greet('Alex');
  //prints 'Hello, Alex'
end.