Thường thì trong file sẽ có dữ liệu là giá trị ta cần nhận. Ví dụ: với đề bài đọc n từ file teptin.txt và xuất ra màn hình thì file teptin.txt có dạng:
**teptin.txt**
* n *
* *
*************
Chương trình:
uses crt;
var f:text; n:longint;
begin
clrscr;
assign(f,'teptin.txt');reset(f);
readln(f,n);
writeln(n);
close(f);
end.
///////////////////////////////////////////////////////////////////////////////////
Còn bạn muốn có nhiều text n thì chỉ việt việc thêm số lương text vào đầu thôi:
**teptin.txt**
* t(số text) *
* t số n... *
************
Khi đó chương trình là:
uses crt;
var f:text; n:longint;
begin
clrscr;
assign(f,'teptin.txt');reset(f);
readln(f,t);
for i:=1 to t Do
begin
readln(f,n);
writeln(n);
end;
close(f);
end.
