Вообщето только в первом юните 1634 строки, без комментариев

Не считая ещё трёх помельче.
Но согласен, программа совсем не сложная, раз уж я так сходу её написал без знания языка
А зачем переписывать и проверять, если можно на рабочем варианте проверить?
Но за такую проверку, если до неё дойдёт, спасибо! После ваших замечаний и их устранения напишем "Одобрено В.Мухиным" и все сразу начнут без стрёма юзать
Вот вам полупериоды и коэффициенты А/Б для декомпрессии, ато я их забыл добавить.
// Занесение в массив периодов полураспада азота и гелия в тканях
Halft[1]:=4; Halft[9]:=109;
Halft[2]:=8; Halft[10]:=146;
Halft[3]:=12.5; Halft[11]:=187;
Halft[4]:=18.5; Halft[12]:=239;
Halft[5]:=27; Halft[13]:=305;
Halft[6]:=38.3; Halft[14]:=390;
Halft[7]:=54.3; Halft[15]:=498;
Halft[8]:=77; Halft[16]:=635;
HalftHE[1]:=1.51; HalftHE[9]:=41.20;
HalftHE[2]:=3.02; HalftHE[10]:=55.19;
HalftHE[3]:=4.72; HalftHE[11]:=70.69;
HalftHE[4]:=6.99; HalftHE[12]:=90.34;
HalftHE[5]:=10.21; HalftHE[13]:=115.29;
HalftHE[6]:=14.48; HalftHE[14]:=147.42;
HalftHE[7]:=20.53; HalftHE[15]:=188.24;
HalftHE[8]:=29.11; HalftHE[16]:=240.03;
// Занесение в массив A/B тканей
TissueA[1]:=1.2599; TissueB[1]:=0.5050;
TissueA[2]:=1; TissueB[2]:=0.6514;
TissueA[3]:=0.8618; TissueB[3]:=0.7222;
TissueA[4]:=0.7562; TissueB[4]:=0.7825;
TissueA[5]:=0.6667; TissueB[5]:=0.8126;
TissueA[6]:=0.56; TissueB[6]:=0.8434;
TissueA[7]:=0.4947; TissueB[7]:=0.8693;
TissueA[8]:=0.45; TissueB[8]:=0.891;
TissueA[9]:=0.4187; TissueB[9]:=0.9092;
TissueA[10]:=0.3798; TissueB[10]:=0.9222;
TissueA[11]:=0.3497; TissueB[11]:=0.9319;
TissueA[12]:=0.3223; TissueB[12]:=0.9403;
TissueA[13]:=0.2850; TissueB[13]:=0.9477;
TissueA[14]:=0.2737; TissueB[14]:=0.9544;
TissueA[15]:=0.2523; TissueB[15]:=0.9602;
TissueA[16]:=0.2327; TissueB[16]:=0.9653;
TissueAHE[1]:=1.7424; TissueBHE[1]:=0.4245;
TissueAHE[2]:=1.3830; TissueBHE[2]:=0.5747;
TissueAHE[3]:=1.1919; TissueBHE[3]:=0.6527;
TissueAHE[4]:=1.0458; TissueBHE[4]:=0.7223;
TissueAHE[5]:=0.9220; TissueBHE[5]:=0.7582;
TissueAHE[6]:=0.8205; TissueBHE[6]:=0.7957;
TissueAHE[7]:=0.7305; TissueBHE[7]:=0.8279;
TissueAHE[8]:=0.6502; TissueBHE[8]:=0.8553;
TissueAHE[9]:=0.5950; TissueBHE[9]:=0.8757;
TissueAHE[10]:=0.5545; TissueBHE[10]:=0.8903;
TissueAHE[11]:=0.5333; TissueBHE[11]:=0.8997;
TissueAHE[12]:=0.5189; TissueBHE[12]:=0.9073;
TissueAHE[13]:=0.5181; TissueBHE[13]:=0.9122;
TissueAHE[14]:=0.5176; TissueBHE[14]:=0.9171;
TissueAHE[15]:=0.5172; TissueBHE[15]:=0.9217;
TissueAHE[16]:=0.5119; TissueBHE[16]:=0.9267;