PROG 6

PROGRAM PROG6;
USES WINCRT;
VAR
   AWAL,AKHIR,HASIL : INTEGER;
BEGIN
   AWAL := 17;
   AKHIR := 5;
   WHILE AWAL<=22 DO
       BEGIN
           HASIL := AWAL+AKHIR;

           WRITELN(AWAL, ' + ',AKHIR, ' = ',HASIL);
           AWAL := AWAL+1;
           AKHIR := AKHIR+5;
       END;
       WRITELN;
       WRITELN('ACHMAD NABIL, M.Kom');
       WRITELN('    16.230.0059    ');
END.