PROG 10

PROGRAM PROG10;
VAR
   ANGKA,T : INTEGER;
BEGIN
   ANGKA := 3;
   T := 0;
   WHILE ANGKA<=18 DO
         BEGIN
              T := T+ANGKA;
              WRITELN('           ',ANGKA:2);
              ANGKA := ANGKA +3;
         END;
   WRITELN('       -----------+');

   WRITELN('TOTAL',' = ','   ',T); 
END.

Hasil