... Modun<4 Then Begin PutPixel(cot,dong,3); PutPixel(cot,diemtren-dong,3); End; dong:=dong+row; End; cot:=cot+col; End; End;Begin138 Giáo trình bài tập Pascal p: Contro;so: integer;f: text;Beginassign(f, ... còn lại.Program Vi_du_6;typeContro = ^ Nut;Nut = Recordinfo: integer;next: Contro;end;varfirst: Contro;Procedure Lay_du_lieu;var101 Giáo trình bài tập Pascal Procedure KhoiTao; Begin ... bạn đọc vềnội dung, chất lượng và hình thức trình bày để giáo trình này ngày một hoàn thiện hơn.Huế, Tháng 07 Năm 2004CÁC TÁC GIẢ Giáo trình bài tập Pascal • Để tạo cung bậc-1(gọi là K1), chia...