Відповідь:

Ось приклад використання циклу for:
program CounterLoop;

{$APPTYPE CONSOLE}

uses

 SysUtils;

var

 i: Integer;

begin

 // Цей цикл виведе числа від 1 до 10

 for i := 1 to 10 do

 begin

   WriteLn(i);

 end;

 ReadLn; // Чекаємо, доки користувач не натисне Enter

end.

Пояснення:
У цьому прикладі "i" - це лічильник, що автоматично збільшується на одиницю кожного разу при кожній інтеграції циклу, і цикл завершується, коли i досягає значення 10.