11-lam);
if q11 <10 then q11:=10if q11> 101.8 then q11:=101.8;
q15:=q15-gam * (r15 * u15-lam);
if q15 <10 then q15:=10if q15> 53.1 then q15:=53.1;
{Writeln (q5: 1:13, «», py5: 1:13); (q8: 1:13, «», py8: 1:13); (q10: 1:13, «», py10: 1:13); (q16: 1:13, «», py16: 1:13); (q75: 1:13, «», py75: 1:13); (q11: 1:13, «», py11: 1:13); (q15: 1:13, « »,py15:1:13);(«Y1=»,-gam*(r5_2*u5_2-lam)-gam*(r8_2*u8_2-lam)-gam*(r10_2*u10_2-lam)-*(r16_2*u16_2-lam)-gam*(r75_2*u75_2-lam)-gam*(r11*u11-lam)-*(r15*u15-lam):1:13);(«Y2=»,-gam1*(r5_1*u5_1-lam1)-gam1*(r8_1*u8_1-lam1)-gam1*(r10_1*u10_1-lam1)-
gam1*(r16_1*u16_1-lam1)-gam1*(r75_1*u75_1-lam1):1:13);(«Y=»,(q5+q8+q10+q75+q16+q11+q15):1:13)};;:=222.55;:=dob*0.16;q10:=dob*0.16;q75:=dob*0.16;q8:=dob*0.151;q16:=dob*0.151;q11:=dob*0.108;q15:=dob*0.11;
{ q5:=70;q8:=62.05;q10:=58;q16:=41;q75:=65.35;q11:=65.9;q15:=41.5;}:=5863450.964;:=5856873.834;_1:=5.856873834;p8_1:=5.856873834;p10_1:=5.856873834;p16_1:=5.856873834;p75_1:=5.856873834;_2:=5.863450964;p8_2:=5.863450964;p10_2:=5.863450964;p16_2:=5.863450964;p75_2:=5.863450964;(p5_1,p5_2,p8_1,p8_2,p10_1,p10_2,p16_1,p16_2,p75_1,p75_2,,q8,q10,q16,q75,_1,q5_2,q8_1,q8_2,q10_1,q10_2,q16_1,q16_2,q75_1,q75_2);
assign (f, «begin.txt»); (f1, «begin1.txt»); (f); reset (f1); i:=1 to 19 do
Продовження додатка Аj:=1 to 34 do begin read (f, giv [i, j]); giv [i, j]:=giv [i, j] * 1e6 end; (f);; i: =1 to 16 doj:=1 to 34 do begin read (f1, giv1 [i, j]); giv1 [i, j]:=giv1 [i, j] * 1e6 end;(f1);;(f);close(f1);(shit,«grdata.txt»);rewrite(shit);:=0;dt:=day;Sum:=0;Sum1:=0;pad:=false;(round(t) mod (day * 30))=0 then:=(- 2.295*sin(0.45*(t/30/day+20)+2.7351)+4.98085)*1000/30;:=dob*0.16;q10:=dob*0.16;q75:=dob*0.16;q8:=dob*0.151;q16:=dob*0.151;q11:=dob*0.108;q15:=dob*0.11;(PcpVIIa/1e6,PcpVII/1e6,PcpVIIa/1e6,PcpVII/1e6,PcpVIIa/1e6,PcpVII/1e6,PcpVIIa/1e6,PcpVII/1e6,PcpVIIa/1e6,PcpVII/1e6,
q5,q8,q10,q16,q75,_1,q5_2,q8_1,q8_2,q10_1,q10_2,q16_1,q16_2,q75_1,q75_2);;:=q5+q8+q10+q16+q75+q11+q15;(giv,gi,dt,t,PcpVII,p5_2,p8_2,p10_2,p16_2,p75_2,p11,p15,_1,q5_2,q8_1,q8_2,q10_1,q10_2,q16_1,q16_2,q75_1,q75_2,q11,q15);
e5_2:=PcpVII-p5_2;_2:=PcpVII-p8_2;_2:=PcpVII-p10_2;_2:=PcpVII-p16_2;_2:=PcpVII-p75_2;:=PcpVII-p11;:=PcpVII-p15;:=e5_2*e5_2+e8_2*e8_2+e10_2*e10_2+e16_2*e16_2+e75_2*e75_2+e11*e11+e15*e15;:=JJ;(gi,dt,t,u5_2,u8_2,u10_2,u16_2,u75_2,u11,u15,_1,e5_2,e8_1,e8_2,e10_1,e10_2,e16_1,e16_2,e75_1,e75_2,e11,e15);_2:=1-(e5_2*e5_2)/(JJ/7);_2:=1-(e8_2*e8_2)/(JJ/7);_2:=1-(e10_2*e10_2)/(JJ/7);_2:=1-(e16_2*e16_2)/(JJ/7);_2:=1-(e75_2*e75_2)/(JJ/7);:=1-(e11*e11)/(JJ/7);:=1-(e15*e15)/(JJ/7);:=(r5_2*u5_2+r8_2*u8_2+r10_2*u10_2+r16_2*u16_2+r75_2*u75_2+r11*u11+r15*u15)/7;:=1e- 4 {- 7 * 1e - 9 / (u5_2 + u8_2 + u10_2 + u16_2 + u75_2 + u11 + u15)}; (giv1, gi1, dt, t, PcpVIIa, p5_1, p8_1, p10_1, p16_1, p75_1,
q5_1, q5_2, q8_1, q8_2, q10_1, q10_2, q16_1, q16_2, q75_1, q75_2);
e5_1:=PcpVIIa-p5_1;_1:=PcpVIIa-p8_1;_1:=PcpVIIa-p10_1;_1:=PcpVIIa-p16_1;_1:=PcpVIIa-p75_1;:=e5_1*e5_1+e8_1*e8_1+e10_1*e10_1+e16_1*e16_1+e75_1*e75_1;:=JJ1;(gi1,dt,t,u5_1,u8_1,u10_1,u16_1,u75_1,_1,e5_2,e8_1,e8_2,e10_1,e10_2,e16_1,e16_2,e75_1,e75_2);_1:=1-(e5_1*e5_1)/(JJ1/5);_1:=1-(e8_1*e8_1)/(JJ1/5);_1:=1-(e10_1*e10_1)/(JJ1/5);_1:=1-(e16_1*e16_1)/(JJ1/5);_1:=1-(e75_1*e75_1)/(JJ1/5);:=(r5_1*u5_1+r8_1*u8_1+r10_1*u10_1+r16_1*u16_1+r75_1*u75_1)/5;:=1e- 4 {5 * 1e -...
