const fi='dulieu.dat'
fo='ketqua.dat'
var f1,f2:text;
n,i,s:integer;
a:array[1..100]of integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
n:=0;
while not eof(f1) do
begin
n:=n+1;
read(f1,a[n]);
end;
s:=0;
for i:=1 to n do
s:=s+a[i];
writeln(f2,s);
close(f1);
close(f2);
end.
Cho tệp DULIEU.DAT chứa giá trị của a,x,n của dãy số S= 1 + x(a + 1 ) + x^2(a + 2) + ....+ x^n(a+n) với S>=10000. Tạo tệp KETQUA.DAT ghi giá trị tổng S với các cặp a,x tương ứng
Viết chương trình đọc dữ liệu từ tệp fi với tệp fi chứa dữ liệu là 1 xâu dữ liệu. Ghi kết quả vào tệp fo các kết quả sau khi xử lý xâu.
a. Xâu vừa đọc được từ tệp fi, xâu chuyển thành chữ in hoa
b. Xâu s1 được tạo gồm n kí tự liên tiếp của xâu s bắt đầu tại vt.
c. Xâu sau khi xóa a kí tự của xâu s bắt đầu tại vị trí vt
Cho tệp số nguyên Dl.txt chứa các số nguyên , mỗi số cách nhau một kí tự trắng .Viết chương trình đọc các số nguyên dương từ tệp rồi đưa ra tổng các số dương và ghi vào tệp soam.txt các số nguyên âm .
1) Cho tệp dulieu.in là tệp vban, chứa các số nguyên cách nhau 1 kí tự trống. Vt ctrinh đọc dữ liệu trog tệp r thựtc hiện các công vc sau a) Ghi vào tệp ketqua.out các số bội số nguyên K nhập từ bàn phím b) Đếm và tính tổng các số thỏa mãn yêu cầu rồi in ra màn hình
Lưu ý có sd ctrinh con
Tệp f1 có dữ liệu 
để đọc 3 giá trị trên tương ứng với 3 biến x, y, z ta sử dụng câu lệnh:
A. Read(f1, x, y, z);
B. Readln(x, y, z, f1);
C. write(f1, x, y, z);
D. writeln(x, y, z, f1);
Tệp f1 có dữ liệu 
để đọc 3 giá trị trên tương ứng với 3 biến x, y, z ta sử dụng câu lệnh:
A. Read(f1, x, y, z);
B. Readln(x, y, z, f1);
C. write(f1, x, y, z);
D. writeln(x, y, z, f1);
Cho tệp dulieu.inp chứa các bộ số nguyên ( mỗi bộ ghi trên 1 dòng gồm 2 số nguyên cách nhau bởi 1 kí tự trống). Vt ctrinh đọc dữ liệu trong tệp trên rồi tính tổng của mỗi bộ số nguyên, ghi các kq vào tệp tong.out( mỗi kq trên 1 dòng ). Lưu ý có sd ctrinh con
Cho tệp 'dayso.in' chứa các dãy số nguyên A1, A2....,An mỗi dãy sô nằm trên 1 dòng. Viết chương trình tính tổng theo dòng trong tệp 'dayso.in' sau đó ghi các số tổng này lên tệp 'tong.out', mỗi số ghi trên một dòng
