Var s k integer begin s 100. Var s k integer begin s 0 for k 3 to 7 do s s 6. var k s integer begin k=1.s=0 repeat s=5+k k=k+2 until k>8. adajctive begin c.