Циклы Опции

[nSk]

Как сделать вот такую фишку как на этолм рисунке при помощи 2 циклов.
[ звездочкм прстой символ " * " ]

[volvo]

Так?

  for i := 1 to 5 do begin
    for j := 5 - i + 1 downto 1 do write(' ');
    for k := 1 to 2*i - 1 do write('*');
    writeln;
  end;