C++ :

#include<iostream>
using namespace std;
int main()
{
  for(int i=1;i<=5;++i)
  {
    for(int j=1;j<=i;++j)
      cout<<"*";
    cout<<endl;
  }
  return 0;
}

Pascal :

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