program bintang naik dengan pascal

Gimana sih caranya buat bintang naik dengan program pascal? Simpel kok ternyata, just check this :) 

uses crt;

var n,i,j:integer;

begin

write('banyak bintang: ');

readln(n);

for i:= 1 to n do

begin

for j:=1 to i do

write('*');

readln;

end;

end.

Gitu sintagnya, setelah dirun ini nih hasilnya ...

Practice this yaaa :) sukses hanya ada pada orang yang senantiasa mencoba, good luck :)