Bài này chính là để tập đọc dữ liệu từ tệp
Bài làm:
uses crt;
var a,b:longint;
f:text;
begin
clrscr;
assign(f,'dulieu.txt');
reset(f);
readln(f,a,b);
close(f);
writeln(a+b);
readln;
end.
Cần nhớ khi làm việc với tệp, sau khi đọc dữ liệu hay in dữ liệu xong, cần phải đóng tệp bằng lệnh close(<biến tệp>);