Turbo Pascal Window: Segitiga Paskal Terbalik

Program SegitigaPascalTerbalik;
uses wincrt;
var
   a,b,c,d:integer;

begin
     clrscr;                
     write('masukkan angka : ');readln(a);
     c:=a;
     for b:=1 to a do
     begin
          for d:=1 to c do
          begin
          write('*');
     end;
     writeln;
     dec(c);
     end;
     readln;
end.