Var p integer