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.