PROGRAM LOOPING FOR TO DO

program forr;

uses wincrt;

var

   i,n : integer;

begin

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

     writeln('| PROGRAM LOOPING FOR |');

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

     writeln;

     write('masukkan banyakanya pengulangan: '); readln(n);

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

     writeln;

     for i:= 1 to n do

         begin

              writeln(i,'. ','praktikum alpro');

         end;

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

end.

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

RUNNING PROGRAM: