PROG 9

PROGRAM PROG9;
VAR
   UTAMA,KT,KK,BB,HASIL : INTEGER;
BEGIN
   UTAMA := 14; KT := 3; KK := 2;
   WHILE UTAMA<=16 DO
         BEGIN
              BB := 1;
              WHILE BB<=3 DO
                    BEGIN
                         HASIL := UTAMA+KT+KK;
                         BB := BB+1;
                         WRITELN(UTAMA, ' + ',KT, ' + ',KK, ' = ',HASIL);
                    END;
              UTAMA := UTAMA+1;
         END;
END.

Hasil