Pascal :

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