Program lesson4_Program2b;
Uses Crt;

Var Counter : Integer; {Penghitung loop dideklarasikan sebagai integer}

Begin
 For Counter := 1 to 7 do {Mudah dan cepat!}
  writeln('for loop');
 Readln;
End.