Program Menyusun_Bintang

Program Menyusun_Bintang;
Uses Wincrt;
Var i,j,n:integer;
Begin
  Write('Masukkan Jumlah Baris: ');Readln(n);
  For i:= 1 to n do
     Begin
       Gotoxy(40-3*i,1+i);
       For j:= 1 to i do
          write('*':6);
     End;
End.