Có 4 ngăn

uses crt;

const fi='tepso.txt';

var n,i:integer;

f1:text;

begin

clrscr;

assign(f1,fi); rewrite(f1);

write('Nhap n='); readln(n);

for i:=0 to 2*n-2 do

if i mod 2=0 then write(f1,i:4);

close(f1);

readln;

end.

uses crt;
var n,i:integer;
a: array[1..100] of integer;
f: text;
const fi = 'so.txt';
begin
clrscr;
write('Nhap so phan tu: ');readln(n);
assign(f,fi);
rewrite(f);
for i:= 1 to n do
begin
write('Nhap so thu ',i,': ');
readln(a[i]);
if a[i] mod 2 = 0 then
writeln(f,a[i]);
end;
close(f);
readln
end.

Nông nghiệp:

-Nền nông nghiệp châu Á đã đạt được nhiều thành tựu to lớn.

-Sản lượng lúa gạo chiếm 93% thế giới.

-Lúc trước có những nước thường xuyên thiếu hụt lương thực nay đã thừa để xuất khẩu (Trung quốc,Ấn Độ)

-Có những nước xuất khẩu gạo đứng thứ nhât svaf thứ hai thế giới (Thái Lan,Việt Nam).

Công nghiệp:

-Đa dạng nhưng chưa đều.

-Ngành công nghiệp khai khoáng phát triển ở nhiều nước.

-Những nước phát triển cao như Trung Quốc,Hàn Quốc,Singapo,Ấn Độ.

-Những nước phát triển thấp như Lào,Mianma,....

Dịch vụ:Trung Quốc,Hàn Quốc,Singapo là những nước có trình độ phát triển.

số tự nhiên A chia cho 29 dư 5 nghĩa là A = 29p + 5 ( p ∈ N ) tương tự A = 31q + 28 ( q ∈ N ) nên 
31q + 28 = 29p + 5 ở đây p > q vì nếu p ≤ q ta được 31q - 29 p + 23 = 0 là vô lý vì 31q - 29 p + 23 > 0 với giả thiết p ≤ q ( 29p ≤ 29q < 31q ) 
vậy p > q ta có 29 ( p - q ) = 23 + 2q vì A là nhỏ nhất nên với p, q ở trên thì p - q nhỏ nhất = 1 thay lại vào ta được q = ( 29 - 23 ) : 2 = 3 vậy p = 4 thay vào ta được A = 29. 4 + 5 = 121 
Thử lại 121 = 31 . 3 + 28 thỏa mãn đề bài