SAMPLE PROGRAM FOR SEGITIGA

PROGRAM bintang;
USES crt;
VAR
   i,j,k,n,m,baris:integer;
BEGIN
clrscr;
write('Masukkan jumlah level : ');readln(n);
writeln;
baris:=n-1;
FOR i:=1 TO n DO
BEGIN
     FOR m:=1 TO 5 DO
         write('  ');
     FOR k:=1 TO baris DO
         write(' ');
     FOR j:=1 TO i DO
          write('# ');
  baris:=baris-1;
  writeln;
END;
readln;
END.