Membuat jajargenjang bintang for bersarang dengan bahasa pemrograman pascal

    Pada postingan yang lalu yaitu Membuat jajargenjang bintang for bersarang dengan 4 bahasa pemrograman    menggunakan bahas pemrograman C++, Java,VB6 dan VB.Net. Kali ini saya akan share program yang sama dengan bahasa pemrograman Pascal. 
script code :
uses crt;
var inp,i,j,z:integer;
begin
write('masukkan jumlah bintang :'); readln(inp);
for i:=1 to inp do
begin
    for j:=1 to i do write(' ');
    for z:=1 to inp do write('*');
    writeln;
    readln;
end;
end.

Hasilnya: