当然可以例如你输入a，将它放入m.txt和l.txt就这样：program luo;vara:integer;beginassign(output,'l.txt');rewrite(output);read(a);write(a);close(output);assign(output,'m.txt');rewrite(output);write(a);close(output);end.
