Deret Bintang Dengan While do

Sekedar info untuk membuat deret bintang di pascal ato mengerjakan pascal dari lazarus.,
:D

program programbintang;
uses crt;
var
kolom,baris,jumbar : integer;

begin
clscr;
  write('Masukan Jumlah Baris: '); readln(jumbar);
  baris:= 0;
  while baris <= jumbar do
       begin
         kolom:=2;
         while kolom <= (baris + 1) do
         begin
           write('*');
           kolom:=kolom + 1;
         end;
         writeln;
         baris:=baris + 1
       end;
       readln;
end.