Program Pascal : Tampilkan Segitiga Bintang

aplikasi : TURBO PASCAL FOR WINDOWS 1.5

ini lansung saja aja kita ke sourcedo nya. berikut source code dan tampilannya ;

source code :

uses wincrt;
var
a,b,c,d:integer;
begin
write('masukkan jumlah baris bintang yang akan ditampilkan:');readln(a);
for b:= 1 to a do
begin
for c:= a downto b do
write(' ');
for d:= 1 to b+b-1 do
write('*');
writeln;
end;
end.

tampilan :

NB : ntuk logika / algoritmanya pahami sendiri aje..