帮我编一个pascal程序。

var i,j,n:longint; begin read(n); for i:=1 to n do begin for j:=1 to n-i do write(' ');//输出第i行的空格 for j:=1 to i do write(j);//输出第i行前面升序的数字 for j:=i-1 downto 1 do write(j);//输