pascal输出如下图形

var n,i,j:longint;
begin
readln(n);
for i:=1 to n do
begin
for j:=1 to n-i do write(' ');
for j:=1 to i do write(chr(ord('A')+j-1));
for j:=i-1 downto 1 do write(chr(ord('A')+j-1));
writeln;
end;
end.