Membuat bintang dengan pascal

Kali ini saya akan membagikan cara untuk membuat bintang berderet dengan menggunakan bahasa pemrograman pascal. Pada program ini menggunakan perulangan. semoga bisa menambah wawasan bagi para pembaca semuanya.

program bintangkecil;
uses crt;
var
i,j,n:integer;
begin
clrscr;
writeln('masukan jumlah baris');
readln(n);
for i:=0 to n do
begin
for j:=1 to i do
write('*');
writeln;
end;
readkey;
end.

Berikut screenshoot nya :