Program Cetak Bintang Rata Kanan (PASCAL)

Program bintang;
uses crt;

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;

readkey();

end.

Tampilannya sebagai berikut: