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

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

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.

Какая маркировка у Калифорнийского Дорожного Патруля?

Возник очень серьёзный спор, нужна ваша помощь, пидоры и пидорессы.

Для тех кто не в курсе - у большинства полицейских департаментов США свои радиопозывные. Например, LAPD использует позывные по типу "*номер станции* Адам (парный)/Линкольн (одиночный) *номер патруля". Надо найти, какие используются радиопозывные у CHP. В интернете информации об этом вообще нет, нашёл только какой-то мод на GTA V, где маркировка 01(номер_станции)-Адам/Линкольн (аналогично LAPD)-12(номер_патруля), но подтверждений нет. Может ли кто поделиться информацией, если есть?

̶С̶а̶п̶ ̶д̶в̶а̶ч̶ а ой, это не то.
Короче, есть такая проблема. В завалах была найдена электронная книжка Inch A5i, которая уже несколько лет как сломана. У неё вечно висит экран "Loading, please wait" и ничего не происходит. Перезагрузка не помогает, компьютер не видит. В инете предлагается решение - перепрошить. Однако чтобы перепрошить, нужно накатить драйвер. Драйвер решительно отказывается накатываться. Какие ещё опции могут быть? Сервис не предлагать.