Новое в PascalABC.Net

uses System;
 
type
  IPrintable = interface
    function GetStringRepresentation(): string;
    
    procedure Print();
    
    procedure Println();
  end;
  
type
  TBox = class(IPrintable)
  private
    fWidth, fHeight: integer;
    
  public
    property Width: integer
      read fWidth
      write
      begin
        if (value < 0) then
          raise new ArgumentException();
        fWidth := value;
      end;
      
    property Height: integer
      read fHeight
      write
      begin
        if (value < 0) then
          raise new ArgumentException();
        fHeight := value;
      end;
    
    constructor Create(width, height: integer) := (self.Width, self.Height) := (width, height);
    
    function GetStringRepresentation(): string := $'({Width}, {Height})';
    
    procedure Print() := Write(GetStringRepresentation());
    
    procedure Println() := Writeln(GetStringRepresentation());
  end;
 
begin
  (new TBox(-1, 2)).Println();
end.

uses System;
begin
  var (X, Y) := ReadInteger2();
  Writeln($'X = {X}, Y = {Y}'); // То же самое, что и WritelnFormat('X = {0}, Y = {1}', X, Y);
end.

type
  TA = class
  end;
  
  TB = class(TA)
  end;
 
begin
  var X := new TB();
  match X with
    TB(var b): Writeln('X является экземпляром класса TB');
    TA(var a): Writeln('X является экземпляром класса TA'); // TA - тип к которому приводится X; a - переменная, в которую записывается результат приведения.
  end;
end.

uses System;
 
var
  X: array of integer;
 
begin
  SetLength(X, 1);
  match X with
    &Array(var a): Writeln('X является массивом');
    IEnumerable<integer>(var b): Writeln('X является IEnumerable<integer>');
  end;
end.

namespace ИмяФайлаПространстваИмён;
interface
  { раздел интерфейса }
 
implementation
  { раздел реализации }
 
initialization
  { раздел инициалиализации }
 
finalization
  { раздел финализации }
 
end.

namespace ИмяФайлаПространстваИмён;
 
end.

{$includenamespace ИмяФайлаПространстваИмён}