C++ :

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

Pascal :

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