http://www.programfan.com/club/myweb.asp

我有一题不会,希望大家来帮忙!!!
题目:

                                1
                               121
                              12321
                             1234321
                            123454321
                           12345654321
                          1234567654321
                         123456787654321
                        12345678987654321
[em18][em18][em18][em18][em18][em18][em18][em18][em18][em18]

program zzz(input,output);
var
 m,n,c:integer;
begin
 for m:=0 to 9 do
  begin
    c:=1;
     write(c:19-m);
    for n:=1 to m do 
    begin 
     c:=c+1;
     write(c:1);
   end;
   writeln
end
end.