... x,y,ds1,dr1:integer; Begin x:=xhp1; y:=yhp1+4*(ds+kc); ds1:=ds; dr1:=2*dr+kc; if(chon =1) then ve_o(2,x,y,ds1,dr1 ,1) else ve_o (1, x,y,ds1,dr1 ,1) ; settextstyle(0,0 ,1) ; settextjustify (1, 1); ... x,y,ds1,dr1:integer; Begin x:=xhp1; y:=yhp1+2*(ds+kc); ds1:=ds; dr1:=2*dr; if(chon =1) then ve_o(2,x,y,ds1,dr1,3) else ve_o (1, x,y,ds1,dr1 ,1) ; settextstyle(0,0 ,1) ; settextjustify (1, 1); ... Var x,y,ds1,dr1:integer; Begin x:=xhp1+2*(dr+kc); y:=yhp1+4*(ds+kc); ds1:=ds; dr1:=2*dr+kc; if(chon =1) then ve_o(2,x,y,ds1,dr1 ,1) else ve_o (1, x,y,ds1,dr1 ,1) ; settextstyle(0,0 ,1) ; settextjustify (1, 1);...