Program Bintang Bahasa Pascal

program bintang;
uses crt;
var
baris,kolom,jumbar:integer;
begin
clrscr;
writeln('program bintang');
write('jumlah baris=');readln(jumbar);
baris:=1;
while baris <= jumbar do
begin
write('*': jumbar +1-baris);
kolom:=2;
while kolom <=(2*baris-1)do
begin
write('*');
kolom:=kolom+1;
end;
writeln;
baris:=baris+1;
end;
readln;
end.