pascal : program pola segitiga

   Pola segitiga yang saya maksudkan di sini adalah, jika saya menginput 5, maka outputnya adalah :

*
**
***
****
*****

ok, langsung saja, ini dia list scriptnya :

var a,b,c,d:integer;
begin
read(a);
c:=1;
for b:=1 to a do begin
for d:=1 to c do begin
write('*')
end;
writeln;
c:=c+1;
end;
end.

    Dalam program ini, saya memakai "for" berlapis agar output "*" ini, nantinya setelah eksekusi pertama, bisa langsung ter-ENTER, dan "*" barupun tercipata di baris baru.

seiring dengan itu, nilai variabel "c" terus beregenerasi akibat operasi

c:=c+1:

sampai for b=1 mencapai nilai "a"


ok, sekian