Turbo Pascal Window: Membuat Segitiga Berbintang

Program BintangSegitiga;
uses wincrt;
var
   i,j,m:integer;
begin
     clrscr;
     write('Masukkan Sembarang Angka: ');readln(m);
     i:=1;
     while i<=m do
     begin
          j:=1;
          while j<=i do
          begin
               write('*');
               inc(j);
          end;
          writeln;
          inc(i);
     end;
     readln;
end.