Pascal

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.

inherited frReservedCapsSettings: TfrReservedCapsSettings
  Width = 325
  Height = 359
  Font.Charset = ANSI_CHARSET
  Font.Height = -15
  Font.Name = 'Segoe UI'
  ParentFont = False
  ExplicitWidth = 325
  ExplicitHeight = 359
  object cbEnable: TCheckBox
    Left = 8
    Top = 6
    Width = 248
    Height = 17
    Caption = 'Enable fix capitalisation'
    Checked = True
    State = cbChecked
    TabOrder = 0
    OnClick = cbEnableClick
  end
  object rgReservedWords: TRadioGroup
    Left = 8
    Top = 26
    Width = 150
    Height = 106
    Caption = 'Reserved words'
    ItemIndex = 1
    Items.Strings = (
      'ALL CAPITALS'
      'all lowercase'
      'Mixed Case'
      'Leave alone')
    TabOrder = 1
  end
  object rgOperators: TRadioGroup
    Left = 164
    Top = 26
    Width = 150
    Height = 106
    Caption = 'Operators'
    ItemIndex = 1
    Items.Strings = (
      'ALL CAPITALS'
      'all lowercase'
      'Mixed Case'
      'Leave alone')
    TabOrder = 2
  end
  object rgTypes: TRadioGroup
    Left = 8
    Top = 248
    Width = 150
    Height = 106
    Caption = 'Types'
    ItemIndex = 1
    Items.Strings = (
      'ALL CAPITALS'
      'all lowercase'
      'Mixed Case'
      'Leave alone')
    TabOrder = 5
  end
  object rgConstants: TRadioGroup
    Left = 164
    Top = 138
    Width = 150
    Height = 106
    Caption = 'Constants'
    ItemIndex = 1
    Items.Strings = (
      'ALL CAPITALS'
      'all lowercase'
      'Mixed Case'
      'Leave alone')
    TabOrder = 4
  end
  object rgDirectives: TRadioGroup
    Left = 8
    Top = 138
    Width = 150
    Height = 106
    Caption = 'Directives'
    ItemIndex = 1
    Items.Strings = (
      'ALL CAPITALS'
      'all lowercase'
      'Mixed Case'
      'Leave alone')
    TabOrder = 3
  end
end

:- import member/2 from lists.
hasEffect(privEscalation).

vulExists(Host, CVE, Prog):- 
  vuln_exists(Host, CVE, Prog, _Range, _Losstype, _Severity, _AC ).

vulExists(Host, CVE, Prog):- 
  vuln_exists(Host, CVE, Prog, _Range, _Losstype, _Severity, _AC, Port, Prot ).

vulProperty(CVE, localExploit, Effect):- 
  vuln_exists(_Host, CVE, _Prog, RangeList,Losstype, _Severity, _AC ),
  member(local,RangeList),
  lossTypetoEffect(Losstype, Effect).

vulProperty(CVE, remoteExploit, Effect, Port, Prot):- 
  vuln_exists(_Host, CVE, _Prog, RangeList,Losstype, _Severity, _AC, Port, Prot ),
  member(remoteExploit,RangeList),
  not  member(user_action_req,RangeList),
  lossTypetoEffect(Losstype, Effect).

vulProperty(CVE, remoteExploit, Effect):- 
  vuln_exists(_Host, CVE, _Prog, RangeList,Losstype, _Severity, _AC, _Port, _Prot ),
  member(remoteExploit,RangeList),
  not  member(user_action_req,RangeList),
  lossTypetoEffect(Losstype, Effect).


vulProperty(CVE, remoteClient, Effect):- 
  vuln_exists(_Host, CVE, _Prog, RangeList,Losstype, _Severity, _AC ),
  member(remoteExploit,RangeList),
  member(user_action_req,RangeList),
  lossTypetoEffect(Losstype, Effect).


lossTypetoEffect(Losstype, Effect):-
            member('data_modification', Losstype),
            hasEffect(Effect).

lossTypetoEffect(Losstype, Effect):-
            member('data_loss', Losstype),
            hasEffect(Effect).

cvss(CVE, AC):-
	vuln_exists(Host, CVE, Prog, _RangeList, _Losstype, _Severity, AC ).

cvss(CVE, AC):-
        vuln_exists(_Host, CVE, _Prog, RangeList,Losstype, _Severity, AC, Port, Prot ).

networkServiceInfo(Host, Program, Prot, Port, someUser) :-
	vulExists(Host, CVE, Program),
        vulProperty(CVE, remoteExploit, _Effect, Port, Prot).

%hacl(Host, internet, Prot, Port) :-
 %       vuln_exists(Host, CVE, _Prog, RangeList,Losstype, _Severity, _AC, Port, Prot ).

%hacl(internet, Host, Prot, Port) :-
 %      vuln_exists(Host, CVE, _Prog, RangeList,Losstype, _Severity, _AC, Port, Prot ).

%this is not corrent, because it binds the CVE Port and Prot together which couldn't be true.
%hacl(Host, Host2, Prot, Port) :-
 %      vuln_exists(Host, CVE, _Prog, RangeList,Losstype, _Severity, _AC, Port, Prot ),
  %     vuln_exists(Host2, CVE, _Prog, RangeList,Losstype, _Severity, _AC, Port, Prot ).

program MyServiceConsole;

{$APPTYPE CONSOLE}

{$MODE DELPHI}

{$R *.res}

uses
  SysUtils,
  Quick.Commons,
  Quick.Console,
  Quick.AppService;

type

  TSrvFactory = class
    class procedure CreateMyService;
  end;

  TMyService = class
  public
    procedure Execute;
  end;

  procedure TMyService.Execute;
  begin
    //your code
  end;

var

  MyService : TMyService;

class procedure TSrvFactory.CreateMyService;
begin
 MyService := TMyService.Create;
end;

begin
  try
    if not AppService.IsRunningAsService then
    begin
      cout('Running in console mode',etInfo);
      MyService := TMyService.Create;
      MyService.Execute;
      cout('Press [Enter] to exit',etInfo);
      ConsoleWaitForEnterKey;
      cout('Closing app...',etInfo);
      MyService.Free;
    end
    else
    begin
        AppService.ServiceName := 'MyService';
        AppService.DisplayName := 'MyServicesvc';
        AppService.OnStart := TSrvFactory.CreateMyService;
        AppService.OnExecute := MyService.Execute;
        AppService.OnStop := MyService.Free;
        AppService.CheckParams;
    end;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.