信息学奥林匹克竞赛-复赛无脑操作攻略（文件读写）

功能：该程序可以在pas文件隔壁自动新建一个test.txt文件，并且在这个记事本文件里自动写入"helloworld"字样。

begin

assign(output,'test.txt');

rewrite(output);

write('helloworld');

close(output);

end.

功能：该程序可以在pas文件隔壁自动寻找一个test.txt文件，并且把这个记事本文件里的内容传给一个叫s的变量。

var s:string;

begin

assign(input,'test.txt');

reset(input);

read(s);

writeln(s);

readln;

close(input);

end.