TJU1001

var
  i,n,k,j:integer;
begin
  readln(n);
  k:=25;
  for i:=1 to n do
    begin
      for j:=1 to (n-i)*2 do write(' ');
      dec(k);
      write(chr(98+k));
      if i=1 then begin writeln; continue; end;
      for j:=1 to i*4-5 do write(' ');
      dec(k);
      write(chr(98+k));
      writeln;
    end;
  for i:=1 to n-1 do
    begin
      for j:=1 to i*2 do write(' ');
      dec(k);
      write(chr(98+k));
      if i=n-1 then begin writeln; continue; end;
      for j:=1 to (n-i+1)*4-9 do write(' ');
      dec(k);
      write(chr(98+k));
      writeln;
    end;
end.
谁帮我看看错？？