PROGRAM LOOPING REPEAT

program ripit;

uses wincrt;

var

   a,n : integer;

   tanya : char;

begin

     repeat

           clrscr;

           writeln('  =====================');

           writeln('< PROGRAM LOOPING WHILE >');

           writeln('  =====================');

           writeln;

           write('Masukkan banyaknya pengulangan: '); readln(n);

           writeln('===================================>>');

           writeln;

           a := 1;

           while a<=n do

           begin

                writeln(a,'. ', 'Program While');

                a := a+1;

           end;

           writeln('=======================>>');

           write('Ingin mencoba lagi<tekan y / t>? '); readln(tanya);

     until (tanya<>'y');

    

end.

============================================================>>

RUNNING PROGRAM: