Var i integer begin for i