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.