分类：电脑/网络-互联网
问题：用TP可以正确输出但换成freepascal却不行！求助！ 
回答：programduru; [1..10]ofinteger;i,fi,f2:integer;beginassign(input,' ');reset(input);assign(output,'number.out');rewrite(output);fori:=1to10dobeginread(f1,a[i]);readln(f1);end;fori:=1to10dowrite(a[i],'');fori:=1to10dobeginwrite(f2,a[i]);writeln(f1);end;close(output);end.帮你稍微改了一下应该可以了