PROG 17(SETENGAH PIRAMID)

PROGRAM PROG17;
USES WINCRT;
VAR
   AB,CD,CD1,EF,CETAK,T,TOTAL : INTEGER;
BEGIN
     CD := 8;
     EF := 8;
     TOTAL := 0;
     WHILE EF>=1 DO
           BEGIN
                CD1 := CD;
                WHILE CD1>=1 DO
                      BEGIN
                           WRITE(' ');
                           CD1 := CD1-1;
                      END;

                CETAK := EF;
                T := 0;
                WHILE CETAK<=8 DO
                      BEGIN
                           WRITE(CETAK);
                           T := T+CETAK;
                           CETAK := CETAK+1;
                      END;
                WRITELN(' = ',T);
                TOTAL := TOTAL+T;
                EF := EF-1;
                CD := CD-1;
           END;
     WRITELN('---------------- +');
     WRITELN('    TOTAL = ',TOTAL);
     WRITELN;
     WRITELN('ACHMAD NABIL, M.Kom');
     WRITELN('    16.230.0059    ');
END.

HASIL