PROG 11

PROGRAM PROG11;
VAR
   ORANG,GT,TAMBAH,UT,VB,TOT : INTEGER;
BEGIN
     ORANG := 2;
     GT := 0;
     TAMBAH := 0;
     UT := 1;
     WHILE UT<=3 DO
           BEGIN
                VB := 1;
                TOT := 0;
                WHILE VB<=2 DO
                      BEGIN
                           WRITELN('  ',ORANG); TOT := TOT+ORANG;
                           TAMBAH := TAMBAH+1;

                           ORANG := ORANG+TAMBAH;
                           VB := VB+1;
                      END;
                WRITELN('-------- +');
                WRITELN('Total = ',TOT);
                GT := GT+TOT;
                UT := UT+1;
           END;
     WRITELN('Grand Total = ',GT);
END.

Hasil