C++ :

#include <cstdio>
using namespace std;
int main()
{
	int n,i,j;
	scanf("%d",&n);
	for (i=1;i<=n;i++)
	{
		for(j=1;j<=i;j++)
		{
		printf("*");
		}
		printf("\n");
	}
	return 0;
}

Pascal :

var
 x,i,s,t:longint;
begin
 read(x);
 for s:=x downto 1 do
 begin
 for i:=x-s+1 downto 1 do write('*');
         writeln;
 end;
end.