PROGRAM LOOPING WHILE

program whilee;

uses wincrt;

var

   a,n : integer;

begin

     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('=======================>>')

end.

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

RUNNING PROGRAM: