PROGRAM PASCAL

FOR-TO-DO, DOWN TO & IF-THEN

Program Pengulangan;

Usescrt;

Var

a,b,n := integer ;

Begin

Write (‘Masukkan jumlah bintang : ‘), readln (n);

FOR a := 1 TO n DO

            Begin

            FOR b := 1 TO a DO

            Write (‘  *  ’);

            Writeln;

            IF  (a=n) THEN

                        Begin

                        FOR a := (n-1) DOWN TO 1 DO

                                    Begin

                                    FOR b :=  1 TO a DO

                                    Write (‘  *  ‘);

                                    Writeln;

                        End;

            Readkey;

Exit;

End;

End;

End.

Output :

Masukkan jumlah bintang : 5

*

*          *

*          *          *

*          *          *          *

*          *          *          *          *

*          *          *          *

*          *          *

*          *

*