contoh program looping piramida setengah kanan pascal

contoh kode dan program

uses wincrt;

var
m,n,i,j : integer;

begin

writeln('Masukkan Angka Untuk Gambar Segitiga : ');readln(n);

for i:=n downto 1 do
begin
for j:=i-1 downto 1 do
write(' ');

for m:=n-(i-1) downto 1 do
write('*');
writeln;
end;



end.


contoh program: