├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：运行超时...

├ 测试数据 05：答案正确... 0ms

求助 怎么办。。。

var

f:array[1..2048,1..2048] of char;

i,j,n,m,l,h:longint;

begin

fillchar(f,sizeof(f),' ');

readln(n);

f[1,1]:='\';

f[1,2]:='_';

f[1,3]:='_';

f[1,4]:='/';

f[2,2]:='\';

f[2,3]:='/';

l:=4;

h:=2;

for m:=2 to n do

begin

for j:=1 to l do

for i:=1 to h do

begin

f:=f;

f:=f;

end;

l:=l*2;

h:=h*2;

end;

for i:=h downto 1 do

begin

for j:=l downto 1 do

write(f); writeln; end;

readln(n);

end.