1)var s,k,i: integer; begin s=0 for k : = 3 to 8 do s : = s + 9; writeln(s); end. 2)var s,k,i: integer; begin s=100 for k : = 1 to 9 do s : = s - 5; write(s); end. 3)var s,k,i: integer; begin s: = 1 for k : = 1 to 7 do s : = s * 2; write(s); end. 4)var s,k,i: integer; begin k: = 4 for i : = 1 to 3 do k : = i + 2*k; writeln(k); end.