RUNG CHUÔNG VÀNG

Bộ nhớ trong

Bộ nhớ ngoài

trên điện thoại

không ở đâu

1

2

3

4

Var <tên biến tệp>: string;

Var <tên biến tệp>: byte;

Var <tên biến tệp>: text;

Var <tên biến tệp>: Integer;

Assign(f,'baitap.txt');

Assign(f,"baitap.txt");

Assign(f,'D:/baitap.txt');

Assign(f,baitap.txt);

Rewrite(f);

Reset(f);

Read(f);

write(f);

Write(f,'DICH COVID-19');

Write(f,"DICH COVID-19");

Rewrite(f);

Write('DICH COVID-19');

write(f);

Reset(f);

Read(f);

Rewrite(f);

Reset(f)

Rewrite(f);

Close(f);

Readln(f);

Assign(f,'bai tap.txt');

Reset(f);

Read(f,a,b);

close(f);

Write(f,'CORONA');

Reset(f)

Rewrite(f);

Assign(f,baitap);