1) var s; k: integer; begin s: =4; for k: =1 to 3 do s: =s+2*k; write (s); end 2) var s; k; i: integer; begin s: =3; i: =3*s; for k: =3 to 9 do s: =s+i; write (s); end

//1)
var
  s, k: integer;

begin
  s := 4;
  for k := 1 to 3 do
    s := s + 2 * k;
  write(s);// s = 16
end.
//2
var
  s, k, I: integer;

begin
  s := 3;
  I := 3 * s;
  for k := 3 to 9 do
    s := s + I;
  write(s);// s = 66
end.

1)16
2)ты точно правильно переписал?