نقل قول نوشته شده توسط SYNDROME مشاهده تاپیک 
 

var

    i:integer;

begin

1    for I:=1 to 100 do

2    begin

3           writeln('I=',I);

4           read(i);

5    end;

end.
در خط 1 مقدار متغییر برابر 1 می شود.
در خط 3 مقدار 1 چاپ می شود.
در خط 4 مقدار جدید را شما وارد می کنید.
و حالا که خط 1 دوباره اجرا می شود به مقداری که شما وارد کرده اید یک واحد اضافه شده.
در خط 3 مقدار (ورودی شما + 1) چاپ می شود.
و تا آخر
زمانی هم که مقدار وردی شما 100 یا بالاتر باشد حلقه تمام می شود.
موفق باشید
با تشکر از راهنماییتون
حرف شما در مورد اضافه شدن یک واحد به ورودی درست ولی تنها سوال من این است که ورودی که من وارد می کنم چه ارتباطی با متغیر حلقه دارد.