var a,i,j:longint;
procedure hex(a:longint);
begin
case a of
10:write('A');
11:write('B');
12:write('C');
13:write('D');
14:write('E');
15:write('F');
else write(a);
end;
end;
begin
writeln(#254,' Free Pascal IDE Version 1.0.12 [2013/02/12]');
writeln(#254,' Compiler Version 2.6.2');
writeln(#254,' GDB Version GDB 7.2');
writeln(#254,' Using configuration files from: D:\FPC\2.6.2\bin\i386-win32\');
writeln(
#218#
196
#196#
0
#218#
196
#196#
191
#0#
179
#0#
0#0
#218#
196
#196#
191#179
#0#
0#179#0
#218#
196#191);
writeln(#179#0 ,#0,
#0#
179#0, #0, #179
#0#
179
#0#
0
#0#
179#0, #0, #179#179
#0#
0#179
#0#
195#194#217);
writeln(#192
#196#
196
#0#
192
#196#
196#217
#0#
192
#196#
196
#0#
192
#196#
196#217#192
#196#
196#217
#0#
179#179);
writeln;
writeln;
writeln('Welcome to use ''CMD-change-colour program:falled the monthal exam special sdition''!');
write('Input times of ChangeRound(recommendation:500-1000):');
read(a);
writeln('Please wait while the program outputting...');
assign(output,'change.bat');
rewrite(output);
randomize;
for i:=1 to a do
for j:=1 to 16 do
begin
a:=(random(15)+1);
write('color ');
Hex(a);
writeln;
end;
close(output);
writeln('Finish.');
readln;
end.

- - 文件处理只有output没有input当然103..103 文件未打开

是我手机有问题么 怎么显示不出来

楼主这是什么程序…