PROG 15

PROGRAM PROG15;
USES WINCRT;
VAR
   TAMA,SP,GT,SP1,SR,SP2,T : INTEGER;
BEGIN
   TAMA := 1;
   SP := 8;
   GT := 0;
   WHILE TAMA<=8 DO
         BEGIN
              SP1 := SP;
              WHILE SP1>=1 DO
                    BEGIN
                         WRITE(' ');
                         SP1 := SP1-1;
                    END;
              SR := TAMA;
              T := 0;
              WHILE SR>=1 DO
                    BEGIN
                         WRITE(TAMA,' ');
                         SR := SR-1;
                         T := T+TAMA;
                    END;
              SP2 := SP;
              WHILE SP2>=1 DO
                    BEGIN
                         WRITE(' ');
                         SP2 := SP2-1;
                    END;
              WRITELN(' = ',T);
              SP := SP-1;
              GT := GT+T;
              TAMA := TAMA+1;
         END;
   WRITELN;
   WRITELN('           TOTAL   = ',GT);
   WRITELN;
   WRITELN('ACHMAD NABIL, M.Kom');
   WRITELN('    16.230.0059    ');
END.

HASIL