... Line(C1+i,H1+i,C2-i,H1+i); Line(C1+i,H1+i,C1+i,H2-i); SetColor(Mau_d); Line(C1+i,H2-i,C2-i,H2-i); Line(C2-i,H2-i,C2-i,H1+i); end; {Ve Nen } setFillStyle(1,Mau_n); Bar(C1+v,H1+V,C2-V,H2-V);End;{**************************}Procedure ... P1:=St[St2,1]-St[St1,1]; P2:=St[St2,2]-St[St1,2]; P3:=St[St2,3]-St[St1,3]; q1:=St[St3,1]-St[St1,1]; q2:=St[St3,2]-St[St1,2]; q3:=St[St3,3]-St[St1,3]; N1:=p2*q3-q2*p3; N2:=p3*q1-q3*p1; N3:=p1*P2-q1*P2;END;{***********************************}Function ... C1:=20;h1:=20;C2:=GetMaxx-c1;H2:=GetMaxy-H1;Cc1:=c 1-3 45;Cuaso(C 1-5 ,H 1-5 ,c2+5,H2+5,15,7,LightBlue,5);Dc1:=5;Gio1;GetDate1;Cuaso(C1,H 2-1 00,c1+180,H2,15,7,Blue,3);SetColor(15);OutTextXY(c1+50,H 2-9 0,'INDICATE');OutTextXY(c1+5,H 2-6 0,#26#27+':...