DouKaku?

program Pyramid;
var
    i        :Integer;
    height    :Integer;
    error    :Word;

procedure WriteStep(step:Integer);
var
    j    :Integer;
begin
    for j := -height + 1 to height - 1 do
        if Abs(j) <= height - step then
            Write('*')
        else
            Write(' ');
    WriteLn
end;

begin
    Val(ParamStr(1),height,error);
    if error <> 0 then
        WriteLn('invalid arguments')
    else
        for i := height downto 1 do
            WriteStep(i)
end.