根据输入数据打印图形。输入
输入数据共n+1行，
第一行为一个整数N,
第2到N+1行每行包含两个数据，第一个数据为输出图形的个数，第二个数据为图形的符号。输出
N行符合条件的图形。样例输入364 @66&69
#样例输出@@@@6&&&&&&6#
########

输入
3
4 @
6 &
9 #
输出
@@@@
&&&&&&
#########
4个@，6个&，9个# 这样的规律

必须用过程做！！！谢谢！！！

var num:array[1..maxint] of integer;
ch:array[1..maxint] of char;{数组应该学了吧。。。。}
i,n:integer;
o:char;
procedure copydown(num:integer;ch:char);
var i:integer;
begin
for i:=1 to num do
write(ch);
writeln;
end;{这过程没毛用，移到下面一样。。。。}
begin
readln(n);
for i:=1 to n do
readln(num[i],o{没有空格就删掉字符‘o’},ch[i]);
for i:=1 to n do
copydown(num[i],ch[i]);
end.