PascalABC.NET

type TArr = array[1..4] of integer;
     TMatr = array[1..3,1..3] of integer;
     
const a : TArr = (2,3,4,5);
      a2 : TMatr = ((1,2,3),(4,5,6),(7,8,9));
      
var b : TArr := (2,3,4,5);
    b2 : TMatr := ((1,2,3),(4,5,6),(7,8,9));
    
begin
assert(a[3] = 4);
assert(b[3] = 4);
assert(a2[2,2] = 5);
assert(b2[2,2] = 5);
end.

unit RBDMUtils;
// (недокументированные возможности PT4TaskMaker)
interface
//Записывают в файл результатов информацию о выполненном задании для Робота или Чертежника
//taskname - имя задания без префикса RB и DM (префикс добавляется автоматически)
procedure ResRB(taskname: string); 
procedure ResDM(taskname: string); 

//Записывают в файл regtasks.dat в каталоге Lib информацию о новой группе заданий
//для Робота или Чертежника
//Group       - имя группы (от 1 до 7 символов, без префиксов),
//Description - описание группы (первый символ автоматически преобразуется к нижнему
//              регистру, так как описание указывается после двоеточия),
//TaskCount   - число заданий в группе (от 1 до 999),
//Units       - имя модуля, содержащего группу (используется в шаблоне). 
//              Если Units является пустой строкой, то считается, что имя модуля 
//              совпадает с именем группы Group, дополненным префиксом RB или DM.
function RegisterRB(Group, Description: string; TaskCount: integer; 
  Units: string): integer;
function RegisterDM(Group, Description: string; TaskCount: integer; 
  Units: string): integer;

implementation

procedure ResRB(taskname: string); 
  external '%PABCSYSTEM%\PT4\PT4PABC.dll' name 'resrb';
procedure ResDM(taskname: string); 
  external '%PABCSYSTEM%\PT4\PT4PABC.dll' name 'resdm';
function registerrb(Group, Description: string; TaskCount: integer; 
  Units: string): integer;
  external '%PABCSYSTEM%\PT4\PT4PABC.dll' name 'registerrb';
function registerdm(Group, Description: string; TaskCount: integer; 
  Units: string): integer;
  external '%PABCSYSTEM%\PT4\PT4PABC.dll' name 'registerdm';
end.