正:
var n,i,j:integer;
begin
  read(n);
  for i:=1 to n do begin
    write('':n-i);
    for j:=1 to i do write('*');
    writeln
  end
end.

倒:
var n,i,j:integer;
begin
  read(n);
  for i:=n downto 1 do begin
    write('':n-i);
    for j:=1 to i do write('*');
    writeln
  end
end.

同时打印正反两个三角形

[font=宋体]
var
  n,i:Integer;
  s:string;
begin
  Write('N=?');ReadLn(n);
  s[0]:=#250;
  for i:=1 to 250 do s[i]:='*';
  for i:=0 to 2*n do begin
    if i=n then WriteLn else
      writeln('':Abs(n-i),Copy(s,1,2*(n-Abs(i-n))+1));
  end
end.


[/font]