C++ :

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

Pascal :

var
  n,m,i,k:longint;
begin
  readln(n,m);
  //l:=m;
  for i:=1 to n do
    begin
      for k:=1 to n-i do
        write(' ');
      for k:=1 to m do
        write(k);
      writeln;
    end;
end.