///
Considere o trecho de programa, abaixo.
procedure TForm1.Button3Click(Sender: TObject);
var
i: Integer;
begin
for i := 0 to 1000 do
begin
ShowMessage(IntToStr(i));
i := i + 2;
end;
end;Em um programa com condições e ambiente ideais, este trecho de código