PROGRAM PASCAL

FOR-DOWN TO-DO

Program Perulangan;

Usescrt;

Var

x,y : integer;

Begin

Clrscr;

Writeln (‘Kelompok 2 : Izatul Putri Sonya        , 131128815’);

Writeln (‘                          Nareswari Pradipta N,  15112248  ‘);

Writeln (‘                          Rizma Nur Fatiyah      ,  16112634  ‘);

Write;

Writeln (‘LATIHAN KE 6’);

Write;

Writeln (‘-------------------------------------------------------------‘);

Begin

FOR x := 4 down to 1 do

            Begin

            FOR y := 4 down to x do

            Write (y, ‘   ‘);

Writeln;

Readln;

End;

End;

End.

Output :

Kelompok 2 : Izatul Putri Sonya         , 131128815

                           Nareswari Pradipta N ,  15112248  

                              Rizma Nur Fatiyah       ,  16112634                 

4

4              3

4              3              2

4              3              2              1