Em giai thich sau dau //

1)  var f:text // khai báo biến tệp f

2) Begin // Từ khoá cho biết bắt đầu chương trinh(gợc của chương trình con)

3) assign(tepA,'Xoai.txt')// Gan ten file 'xoai.txt' vào biến tepA

4) assign(tepB,'Me.txt')//Gán tên file'Me.txt' vào biến tepB

5) reset(tepA)//Mở file tepA đã có để đọc

6) read(tepA,A,B,C)//đọc biến A, B, C trên 1 dòng đã có trong file tepA

7) readln(tepA,A,D,E)//đọc biến A,D,E trên đã có trong file tepA, con trỏ tự động xuống dòng

8)rewrite(tepB)//Mở file tepB để ghi vào

9)write(tepB,'A=',A,'D=',);// In ra tepB một chuỗi 'A=' <biến A> 'D=' liền sau kí tự cuối

(10) writeln(tepB, ‘x1=’, (-B-SQRT(B*B-4*A*C))/(2*A):5:3);// In ra tep B một chuỗi x1=$\frac{-B- \sqrt{B^{2}-4*A*C}}{2*A}$ cach le trai 5 don vi va lay 3 so o phan thap phan

(11) close (tepA);// Đóng file tepA

(12) close (tepB);// Đóng file tepB

(13) Readln; //Dừng lại để xem kết quả;

(14) End.// Từ khoá cho biết chương trình đã kết thúc

(1) Khai báo biến tệp tepA,tepB,tepC

(2) Bắt đầu chương trình

(3) Gán tên file Xoai.txt vào biến tệp "tepA"

(4) Gán tên file Me.txt vào biến tệp "tepB"

(5) Đọc tepA

(6) Đọc giá trị của biến A,B,C vào biến tepA (nhập từ bàn phím)

(7) Đọc giá trị của biến D,E vào biến tệp tepA và xuống dòng

(8) Ghi dữ liệu trong tepB

(9) Xuất ra màn hình ở tepB 'A=',<giá trị của biến A>,'D=',<giá trị của biến D>;

(10) Xuất ra màn hình ở tepB 'x1=',$\dfrac{-b-\sqrt{b^2-4ac}}{2a}$ lấy 5 số ở phần nguyên và 3 số ở phần thập phân

(11) Đóng tepA

(12) Đóng tepB

(13) Dừng để xem KQ

(14) Kết thúc chương trình