... integer;next: Contro;end;varfirst: Contro;Procedure Lay_du _lieu; varp: Contro;so: integer;f: text;101Giáo trình bài tập Pascal Beginassign(f, ‘NGUYEN.INP’);reset(f);first:= nil;while ... p^.next;end;writeln(f, T,#32,T_duong,#32,T_am);102Giáo trình bài tập Pascal writeln(f,N_duong,#32,N_am);close(f);end;BeginLay_du _lieu; Tinh_toan;End.Bài tập 9.7: Người ta lưu thông tin các bệnh ... để 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 6.3. Các lệnh xuất nhập dữ liệu6.3.1. Lệnh xuất dữ liệuĐể xuất dữ liệu ra màn hình, ta...