var
  i,n:byte;
  c:char;
PROCEDURE print(x:byte);
  VAR j,k:byte;
  BEGIN
    for k:=1 to n-i do write(' ');
    for k:=1 to 2*i-1 do write©;
    inc©;writeln
  END;
BEGIN
  readln(n);c:='A';
  for i:=1 to n do print(i);
END.