... setlinestyle(0,$aaaa,3);setfillstyle(1,7); bar(60,90,550,430);setfillstyle(1,9); bar(90,220,520,410);setfillstyle(1,13); bar(90,140,300,170); settextstyle(3,0,4);setcolor(4); for i:=1 to 4 do outtextxy(330+(i-1)*2,11 0 -( i-1)*1,'TD ... (length(s)<>0)then begin bar(91+i -textwidth('M'),140+textheight('H')+6,91+i,140); delete(s,length(s),1);i:=i-13;end; end; if length(s) =16 then if (ch=#8) and (length(s)<>0)then ... bar(91+i - textwidth('M'),140+textheight('H')+6,91+i,140); delete(s,length(s),1);i:=i-13;end;until (ch =#13) and (s<>''); settextstyle(3,0,1); VietHoa(s);...