UVa OJ 488-Triangle Wave

{
Author:wzx961008
Problem:UVa 488-Triangle Wave
Verdict:Accepted
Language:PASCAL
Run Time:0.248s
Submission Date:2011-03-19 04:29:26
}
var n,i,j,k,t,cas,amp,fre:longint;
begin
readln(n);
for cas:=1 to n do begin
readln(amp);
readln(fre);
for k:=1 to fre do begin
for i:=1 to 2*amp-1 do begin
t:=amp-abs(i-amp);
for j:=1 to t do write(t);
writeln;
end;
if (cas<>n)or(k<>fre) then writeln;
end;
end;
end.