soal 5 mulok *95*

PROGRAM REPEAT_UNTIL;

USES CRT;

VAR

A,B,C,D: INTEGER;

BEGIN

CLRSCR;

WRITE ('INPUT BATAS LOOPING : ');READLN(B);

A:=1;

D:=B;

REPEAT

WRITE(' ':D);

B:=1;

REPEAT

WRITE ('*');

B:=B+1;

UNTIL B>A;

WRITELN(' BINTANG ', A);

A:=A+1;

D:=D-1;

UNTIL A>5;

WRITELN;

READKEY;

END.

soal 2 Mulok *75*

PROGRAM REPEAT_UNTIL;

USES CRT;

VAR

A,B,C : INTEGER;

BEGIN

CLRSCR;

A:=1;

C:=1;

REPEAT

B:=1;

REPEAT

WRITE(C);

B:=B+1;

C:=C+1;

UNTIL B>A;

WRITELN;

A:=A+1;

UNTIL A>3;

READKEY;

END.

soal 3 Mulok *85*

PROGRAM REPEAT_UNTIL;

USES CRT;

VAR

A,B : INTEGER;

BEGIN

CLRSCR;

WRITE('INPUT BATAS LOOPING :');READLN(B);

A:=1;

REPEAT

B:=1;

WRITE('BARIS',A,' : ');

REPEAT

WRITE(A);

B:=B+1;

UNTIL B>A;

WRITELN;

A:=A+1;

UNTIL A>5;

READKEY;

END.