for i := 0 to 10
do (ii := ii + i)
end