Semicolonless Delphi

Semicoronless.pas

{$WARNINGS OFF}
begin
  (procedure(F: array of const)begin end)([

    // 定番のやつ
    (function(const Count: Integer): Integer
      begin
        for Result := 0 to Count - 1 do
          Writeln('Good-bye, semicolon world !')
      end
    )(3),

    // FizzBuzz
    (function: Byte
      begin
        for Result := 1 to 100 do
          (procedure(S: array of Variant)
          begin
            Writeln(S[Ord(S[0] mod 3 = 0) or (Ord(S[0] mod 5 = 0) shl 1)])
          end)
          ([Result, 'Fizz', 'Buzz', 'FizzBuzz'])
      end
    )(),

    // Enter 押されるまで待つ
    (function: Byte
      begin
        Readln
      end
    )()

  ])
end.