第二题的
 for h:=1 to 5 do
    begin
      for k:=1 to 9 do
        begin
          if(k=5-h) then
            begin
              for n:=1 to 2*h-1 do
                  write('*');
            end
          else
          write(' ');
        end;
        writeln;
    end;