Var s k integer begin s 100