Ai arr

Помогите определить язык программирования

Необходим этот код. Понять, на каком языке он написан, так и не смог. Либо он написан с ошибками, либо это вообще не какой-то популярный код. Пробовал Паскаль и Питон, глянул на Руби и Джаву, но там другой синтакс. Про С-подобные вообще молчу, точно не оно.

const Predicate=3000;//Integer.MaxValue;
Xfirst = 0;

var a:=1;
m:=1;
c:=1;
x1:=1;
Xprev:=0;

ReferenceArray:array of Cardinal;
CandidateArray:array of Cardinal;

procedure putSeq2Array(const ReferenceXfirst,ReferenceA:Cardinal;ReferenceC:Cardinal;ReferenceM:Cardinal;arr:array of Cardinal);
var i:Integer;
var myXNew:Integer;
begin
myXNew:=ReferenceXfirst;
for i:=0 to Length(arr)-1 do
begin
arr[i]:=myXNew;
myXNew:=(ReferenceA*myXNew+ReferenceC) mod ReferenceM;
end;
end;

function TryUse(const CandidateXfirst,CandidateA,CandidateC,CandidateM:Cardinal):Boolean;
var i,j:Integer;
begin
if ReferenceArray=nil then begin result:=false; exit; end;
SetLength(CandidateArray,Length(ReferenceArray));
putSeq2Array(CandidateXfirst,CandidateA,CandidateC,CandidateM,CandidateArray);
//CandidateArray и ReferenceArray могут начинаться с неодинаковых элементов
//попробуем найти первый одинаковый элемент, result:=false иначе
result:= false;
for i:=0 to Length(ReferenceArray)-1 do
if CandidateArray[i]=ReferenceArray[0] then
begin
for j:=i to Length(ReferenceArray)-1-i do
if CandidateArray[j]ReferenceArray[j-i] then begin result:=false; exit;end
else result:= true;
end;
//else begin result:=false; exit;end;


end;

procedure TryFind();
var Ci,Mi,Ai,Xprev_i:Integer;
begin
for Ci:=c to Predicate do
for Mi:=m to Predicate do
for Ai:=a to Predicate do
if (Ai*8+Ci) mod Mi = 10 then
begin
if (Ai*18+Ci) mod Mi = 28 then//if (4*Ai+Ci) mod Mi =3 then
begin
if (Ai*28+Ci) mod Mi = 14 then
begin
if (Ai*14+Ci) mod Mi =8 then//if (Ai*Xprev_i+Ci) mod Mi = 1 then writeln('of cause a='+Ai+' ,c='+Ci+' ,m= '+Mi+' ,XPrev='+XPrev_i);
if TryUse(14,Ai,Ci,Mi) then
writeln('a='+Ai+' ,c='+Ci+' ,m= '+Mi);
end;
end;
end;
end;

BEGIN
SetLength(ReferenceArray,51);
putSeq2Array(0,5,2,32,ReferenceArray);

TryFind();
END.

GPT4All: новая эра общения с ИИ без ограничений и цензуры.

GPT4All - это экосистема с открытым исходным кодом для обучения и развертывания мощных и настраиваемых больших языковых моделей, которые работают локально на процессорах потребительского класса. 

Это бесплатное приложение от Nomic AI, компании, которая занимается информационной картографией.
 

Полный контроль и конфиденциальность - модели работают локально на вашем ПК, нет утечек данных.

Возможность тонкой настройки и адаптации моделей под свои задачи

С помощью GPT4All вы можете скачивать и тут же запускать такие передовые языковые модели как:

LLama2: самая большая языковая модель в мире,                      обученная на 13 биллонах токенов.

GPT4ALL: универсальная модель, которая может генерировать тексты на любую тему и в любом стилеWizard: модель, которая специализируется на создании чат-ботов, генерации кода, рассказов и диалогов 

Wizard_uncensored и Hermes_uncensored: модели, которые не имеют никаких ограничений и цензуры, и могут говорить все, что угодно

Каждая модели представляет собой файл 3-8Гб, который вы скачиваете и подключаете к экосистеме GPT4All, обеспечивающую качество и безопасность

Теперь вы можете общаться с ИИ, задавать любые вопросы, давать задачи - и все это без ограничений и цензуры, прямо на вашем ПК

Подробнее на англ https://gpt4all.io/index.html