Pascal - Membuat Bintang Segitiga

Pada kode program kali ini akan menghasilkan output yang membentuk segitiga terbalik, yang tinggi dari segitiga tersebut merupakan nilai yang di input.


Berikut kode programnya :

program bintang_segitiga;
uses crt;
var
a,b,c: integer;

begin
clrscr;
write ('masukkan bil :');
readln(a);
for b:=a downto 1 do
begin
for c:=1 to a do
write('*');
writeln;
a:=a-1;
end;
readln;
end.

Hasil dari program di atas adalah :