1) var i, s, c: integer; begin s : = 0; i : = 1; c : = 0; while c < 10 do begin if(i mod 2 = 0) then begin c : = c + 1; s : = s + i; end; i : = i + 1; end; write(s); end. 2) var i, s, k: integer; begin s : = 0; k : = 5; for i : = 1 to 10 do begin s : = s + k; k : = k + 2; end; write(s); end.