The printable version is no longer supported and may have rendering errors. Please update your browser bookmarks and please use the default browser print function instead.
<syntaxhighlight>
var I:integer;
begin
For I :=1 to 10000 do
//...
End.
</Delphi>