... Bài tập Pascal (tập 1), NXB ĐHQG Hà Nội, 20 02 (hoặc Bài tập Pascal, ĐHSP Hà Nội 2) . 2. Quách Tuấn Ngọc, Ngôn ngữ lập trình Pascal, NXBGD, 1996. 3. Bùi Thế Tâm, Văn Văn Tuấn Dũng, Turbo Pascal ... (ghi các số nguyên 28 , 8, 20 06 vào tệp SN.DAT) ASSIGN(f, ’SN.DAT’); REWRITE(f); x:= 28 , y:= 8; z:= 20 06; {x,y,z - biến Integer} WRITE(f, x, y, z); {Sai: WRITE(f ,28 ,8 ,20 06);} 28 8 20 06 EOF • Đóng ... 'Hai'; s2.dtb:= 2. 2; if (s1=s2) then writeln('s1 = s2') else writeln('SV1 khac SV2!'); 7 Readln; end. VD 8.3 (Khoảng cách giữa 2 điểm) Lập trình nhập vào toạ độ 2 điểm A(xA, yA),...