Пример кода:
var
i : Integer;
begin
// A for statement - the do keyword precedes a single statement
for i := 1 to 3 Do
ShowMessage('For loop, i = '+IntToStr(i));
// A while
statement - the do precedes a statement block
while i <6 Do
begin
ShowMessage('While loop, i =
'+IntToStr(i));
Inc(i);
end;
end;
Результат выполнения:
For loop, i = 1
For loop, i = 2
For loop, i = 3
While loop, i = 4
While loop, i = 5