Menampilkan Segitiga Bintang dengan Pascal

Sudah lama tidak posting, kali ini saya lagi-lagi posting tentang Turbo Pascal.
Chek this out !



uses crt;
var a,b:integer;
begin
a:=5;
while a>=1
do begin

b:=a;
while b>=1 do begin
write('*');
b:=b-1;
end;
        writeln;
a:=a-1;
end;
end.