Contoh Source Code Menampilkan Bintang Bahasa Pascal

Program Menampilkan_Bintang;

Uses Wincrt;

Var i,j,n:integer;

Begin

Writeln('Program Menampilkan Bintang');

Writeln('===========================');

Writeln;

Write('Masukkan Jumlah Baris: ');readln(n);

For i:= 1 to n do

Begin

For j:= 1 to i do

Write('**');

Writeln;

End;

readkey();

End.