... 80:Phi:=Phi-D_goc; 75:Theta:=Theta-D_goc; 77:Theta:=Theta+D_goc; 69:Rho:=Rho+D_Rho; 65:Rho:=Rho-D_Rho; 43:DE:=DE+D_DE; 45:DE:=DE-D_DE; 67:If PhepChieu=PhoiCanh then Begin Kx:=30;Ky:=37; PhepChieu:=VuongGoc; ... ch:char;BeginKx:=1;Ky:=1; While True do begin ch:=readkey; Case ch of #4 3: Begin Kx:=Kx+0.1;Ky:=Ky+0.1; End; #4 5: Begin Kx:=Kx-0.1;Ky:=Ky-0.1; End; #7 7: C:=C+20; #7 5: C:=C-20; #7 2: ... NF:=6; FC[1,0 ]:= 4; FC[1,1 ]:= 1; FC[1,2 ]:= 2; FC[1,3 ]:= 3; FC[1,4 ]:= 4; {Mat 1} FC[2,0 ]:= 4; FC[2,1 ]:= 1; FC[2,2 ]:= 5; FC[2,3 ]:= 6; FC[2,4 ]:= 2; {Mat 2} FC[3,0 ]:= 4; FC[3,1 ]:= 5; FC[3,2 ]:= 8; FC[3,3 ]:= 7;...