C++ :

#include<bits/stdc++.h>
using namespace std;
int n;
int main()
{
	cin>>n;
	int s=n-1;
	for(int i=1;i<=n;i++)
	{
		for(int j=1;j<=s;j++)
			cout<<" ";
		for(int j=1;j<=i;j++)	
			cout<<j;
		for(int j=i-1;j>=1;j--)
			cout<<j;
		cout<<endl;
		s--;
	}
   return 0;
}

Pascal :

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