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