... 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,H2 -1 0 0,c1 +18 0,H2 ,15 ,7,Blue,3);SetColor (15 );OutTextXY(c1+50,H 2-9 0,'INDICATE');OutTextXY(c1+5,H 2-6 0,#26#27+': ... P1,P2,P3,q1,q2,q3:real;Begin 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; ... k,max,D,Af,ham,x,y:real;BeginClearDevice;SetBkColor(blue); c1: =15 0;H1: =15 0;C2:=500;H2:=350;Mau: =14 ; maxr(Max); If (c2-c1)<(h2-h1) then D:=c2-c1 else D:=h2-h1; k:=D/2/max; { k la he so co dan } c0:=c1+((c2-c1) div 2);h0:=h1+((h2-h1) div...