[210521] STAR

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  Str          : string;
  Strlen, i, j : integer;
  N            : integer;
begin
  Str := '*';
  N   := 4;

  for i := 0 to N do begin
    for j := 0 to N-i do begin
      write(Str);
    end;
      write(#13#10);
  end;
  sleep(1000);

end.

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  Str          : string;
  Strlen, i, j : integer;
  N            : integer;
begin
  Str := '*';
  N   := 4;

  for i := 0 to N do begin
    for j := 0 to N do begin
      if j<=i then write(Str);
    end;
      write(#13#10);
  end;
  sleep(1000);

end.

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  Str          : string;
  Strlen, i, j, k : integer;
  N            : integer;
begin
  Str := '*';
  N   := 4;

  for i := 0 to N do begin
    for j := 0 to N-i-1 do begin
      write(' ')
    end;
    for k := N downto N-i do begin
      write(Str);
    end;
      write(#13#10);
  end;
  sleep(10000);

end.