Segitiga Piramid dengan Pascal

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


end;
readkey;
end.