PROG 4

Analisa : 

Angka Awal >> HK=12

Rumus >> HK = HK-2

Angka Terakhir adalah 2 >> HK>=2

Algoritma :

1. Mulai

2. HK = 12

3. Jika HK>=2,maka ke line number 7

4. Cetak HK,' '

5. HK = HK-2

6. Ulangi ke line number 3

7. Stop

PROGRAM PROG4;
USES WINCRT;
VAR
   HK : INTEGER;
BEGIN
   HK := 12;
   WHILE HK>=2 DO
       BEGIN
           WRITE(HK, ' ');
           HK := HK-2;
       END;
       WRITELN;
       WRITELN('ACHMAD NABIL, M.Kom');
       WRITELN('    16.230.0059    ');
END.