program liumohan; var n,i,j,x:longint; begin read(n); x:=-1; for i:=n downto 1 do begin x:=x+1; for j:=1 to x do write(' '); for j:=1 to i do write(j); writeln; end; end. /************************************************************** Problem: 1491 User: admin Language: Pascal Result: Wrong Answer ****************************************************************/