for i := (while 1 do 1) to 10 do i